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THIS PROGRAM IS AN FXERCISER FOR THE PDP-U/bX FLOATING POINT 
ADD, SUBTRACT, MULTIPLY, AND DIVIDE INSTRUCTIONS RANDOM 
NUMBER PATTFHNS ARE USED AS THE OPERANDS, AND THF 'haRDwARF 
GENERATED RESULTS APE CHECKED AGAINST RESULTS OBTAINED FROM 
FLOATING POINT SOFTWARE ROUTINES TO INSURE CORRECTNESS, THE 
Pnp-ll/6X IS OPERATED IN DOUBLE AND SINGLE FLOATING mqDE, 
ROUND AND TRUNCATE MODE, AND WITH UNDERFLOW AND OVEPFE.OW 
CONDITIONS ENABLED AND DISABLED. THE PROGRAM WILL RUN FOP 
400(8) "SUbPASSES" BEFORE GIVING AN "END OF PASS" INDICATION, 
SO THAT A SUFFICIENT NUMBER OF RANDOM PATTEpNs AFU: OBTAINED 
FOR USE AS OPERANDS. ALSO AT THIS TIME, OPTIONAL STATUS 
INFORMATION ON THE TYPES OF RANDOM OPF RANDS SELECTED CAN BF 
PRINTED ON THE CONSOLE, ROTH "HOT" (FPH-F OPTION) AND "WARM" 
(PDP-11/6X MICROCODE) FLOATING POINT UNITS CAN BE SELECTED FOP 
TESTING, 



2. HEOUIREMENTS 
2.1 EQUIPMENT 



PDP-11/6X STANDARD COMPUTER WITH MINIMUM jhK OF MEMORY 
OPTIONAL FPH-E FLOATING POINT UNIT, IF SELECTED, 

2.2 STORAGE 

THE PROGRAM USES MEMORY 0-34120(8), THE UPPER 2,0K WoRDS ARE 
RESERVED FOR THE XXDp MONITOR, IF EMPLOYED, 

2.3 PRELIMINARY PROGRAMS 

THE CPU, CACHE, AND MEMORY TEST PROGRAMS «UST BE PUN FIRST TO 
VERIFY THE CORRECT OPERATION OF THE BASF MACHINE, 

THF PDP-11/6X - FPtl-E FLOATING POINT PROCESSOL INSTPUCTION 
SET TESTS SHOULD THEN BE HUN IN THE FOLLOWING OFTjEr: 

(1) DQFPA FPU BASIC INSTRUCTION TESTS 

(2) DQFPe FPU ADVANCED INSTRUCTION TESTS 

(3) OOFPC FPU INSTRUCTION EXERCISER 

(4) DQFPD FPU ADD/SUB/MUL/DIV RANDOM EXbPdSEh 



3, LOADING PROCEDURE 

USE THE STANDARD PROCEDURE FOR ABSOLUTE TAPES, OR LOAD VIA 
XXDP MEDIA, 
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4. STARTING PROCEDURE 

4. J CONTROL SWITCH SFTTINGS 

SEE SECTION 5,1 

SWITCH REGISTER (000000) TS WORST CASE TEST, 

4.2 STARTING ADDRESS 

THE PROGRAM MUST ALWAYS BE STARTED AT LOCATION 200(8). 

4.3 PFOGRAM/OPERATOR ACTION 
LOADING VTA ABSOLUTE PAPERTAPE: 

(1) LOAD PROGRAM INTO MEMORY USING ABS LOADER, 

(2) LOAD ADDRESS 200 (8). 

(3) SET SWITCHES (SEE SECTION 5,1) 
SR=(<)00000) IS WORST CASE TEST. 

(4) PRESS CONTROL/START TO bEGlN, 

(5) PROGRAM TYPES IDENTIFICATION HEADER (VERIFY THAT THE 
CORRECT PROGRAM HAS BEEN LOADEDI), AND EXECUTION BEGINS, 

5, OPERATING PROCEDURE 

5,1 OPERATIONAL SWITCH SETTINGS 

THE DEFINITION OF THE SPECIFIC BITS IN THE SWITCH REGISTER 
(EITHER HARDWARE OR SOFTWARE) APE AS FOLLOWS: 

SW15sl 1?3000 HALT ON ERROR 

SW14=1 343000 LOOP ON CURRENTLY EXECUTING TFsT 

SW13 = i 020000 INHIBIT ERROR TYPeOUTS (WhiCh IS Aw "ERf*OR 

MESSAGE" RESULTING FROM AN ERROR DETECTED IN 

THE HARDWARE) 
SW12=1 0110000 INHIBIT STATUS TYPEOUTS (WHICH I5 A NON-ERROR 

RELATED INFORMATIVE MESSAGE, SUCH AS "END PASS 

fXXX") 
SWlin 004000 INHIBIT ITERATIONS PER TEST 
SW10 JS92000 SETsbELL ON ERROr/CLEAR=BELI, ON PASS FND 
SW09=1 601000 LOOP ON ERROR 
SW09=1 000400 LOOP ON TEST NUMBER IN "SLPTST" IF SET, THEN 

THE TFST SPECIFIED PY THE TEST NUMBER 

CONTAINED IN THE MEMORY WORD "SLPTST" (SEE 

PROGRAM LISTING) WILL SPECIFY THE DFSTRFD TEST 

ON WHICH TO LOOP, 
SW01 (100002 CLEAR=TEST HOT-FP/WARM-FP ALTERNATELY EACH 

PASS (IE, PASS#1 HFP, PASS«1 WFP, PASS#2 HFP, 

PASS#2 WFP, ETC) 

SETsTEST ONLY UNIT SPECIFIED IN SW00 
SW00 000001 SETsSELECT WARM FP, IF SW01=1 



MAINDFC-! 1-DQFPD-tl P^5« ^ 

Cl.EAR=SELECT HOT FP, IF SW01 = t 

»NOTE» FOR SW01, SW0P1 - IF NO HOT FP (FPll-fc) IS PRESENT, 
THEN WARM FP (PDP-11/6X MICROCODE) IS AUTOMATICALLY 
SELECTED, 

5,2 PROGRAM/OPERATOR ACTION 

ONCE FXECL'TION HAS BEGUN, MINIMAL OPERATOR INTERVENTION IS 
REQUIRED, UNLESS THE PROGRAM DETECTS AN ERROR IN THE HARDWARE. 

IF ALL IS WELL, THE PROGRAM TYPES ITS NAME UPON BEGINNING; 
AND AT THE START OF EACH PASS, THE CURRENT PASS NUMBER (IN 
OCTAL) IS ECHOED, NOTE THAT SETTING SW<12>=1 WILL INHIBIT THE 
TYPEOUT OF THE BEGIN AND END PASS MESSAGES, 

IF SW<M> = e;', THE CONSOLE BELL WILL BE RUNG AT THE END OF 
EACH PASS, NOTE THAT ONLY SW<10> AFFECTS THE BELL RINGING AT 
END OF PASS - SW<12> HAS NO EFFECT ON THIS FUNCTION. 

IF AN ERROR OCCURS DURING EXECUTION, MANY VARIATIONS IN ACTION 
ARE POSSIBLE DEPENDING UpON THE SWITCH SETTINGS. 

5W<15>=1 WILL CAUSE THE CPU TO HALT AFTER AN ERROR, 

SW<13>=1 WILL ALSO INHIBIT ANY ERROR MESSAGE TYPEOUT THAT 
WOULD OCCUR AT THIS TIME, 

SW<1«)> = 1 WILL CAUSE THE CONSOLE BELL TO bE PU^^G ONLY WHEN AN 
ERROR IS DETECTED (AND NOT AT THE END OF A PASS), 

SW<<?> = 1 CAUSES THE PROGRAM TO LOOp ON THE MOST RECENT ERROR, 
AS LONG AS IT CONTINUES TO OCCUR, 

THERE ARE ALsO SEVERAL OTHER GENERAL USE FUNCTIONS DEFINED BY 
THfc Sirf ITCHES* 

5W<11>=1 WILL INHIBIT THE ITERATIONS ( = 2000 ( 1 f> ) ) PERFORMED 
OF EACH TEST ON PASSES 2,3,4, .., THRU THE PROGRAM, 

SW<14>=1 CAUSES THE PROGRAM TO LOOP INDEFINATELY ON THE 
CURRENTLY EXECUTING TEST, 

SW<8>=1 CAUSES THE PROGRAM TO CONTINUE EXECUTION AS NORMAL, 
EXCEPT WHEN THE CONTENTS OF MEMORY WOrD "SLPTST" MATCHES THE 
NUMBER OF THE TEST CURRENTLY EXECUTING, AT THIS POINT, THE 
lEST IS LOOPED ON INDEF IN ATELY, UNTIL EITHER SW<8>=0 OR 
-SLPTSI" Is CHANGED, NOTE THAT IE "SLPTST- DOES NOT MATCH THE 
TEST NUMBER OF ANY TEST, THE CONTENTS OF "SLPTST" ARE 
EFFECTIVELY IGNORED, AND EXECUTION PROCEEDS NORMALLY, 

5,3 HOT (FP11-E) / WARM {PDP-11/6X) SELECTION 

WHEN THE PROGRAM IS STARTED (AT 25^0(8)), A MESSAGE IS 
OPTIONALLY PRINTED INDICATING THE PREvSCENCE/ AHSCENCE OF AN 
EPll-E HOT FLOATING POINT UNIT OPTION (bASED UPON WHETHER 
"WHAMl" B1T<04> IS 1 /i) RESPECTI VEL H , 

IF NO EPll-E HOT EF OPTION IS PRESENT, THE MfSSAGE IS TYPED, 
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AND ANY ATTEMPTS TO SELECT IT FOR TESTING VIA SwMl AND SW00 
AFE IGNORED, OMLY WARM FP (PDP-11 /6X MICROCOnE) FLOATING 
POINT CAN BF TESTED/SELECTED, 

IF THE FPll-e IS PRESENT, TEST SELECTION IS AS FOLLOWS: 

WHEN SW(*1=^, THE HOT AND WARM FLOATING POINT UNITS ARE TESTED 
ALTERNATELY EACH PASS - IN THE ORDER (1) HOT, THEN (2) WARM. 
NOTE THAT EACH "PASS" NOW CONSISTS OF TWO SEPARATE SUB-PASSES. 

WHEN SW(?1 = 1, THEN DEDICATED SELECTION OF A PARTICULAR UNIT IS 

SPECIFIED IN SW0P: 

SV'iiisili --> TEST HFP FPU-E OPTION ONLY 
SW0?»=1 --> TEST WFP PDP-U/eX MICROCODE ONLY 



6. ERRORS 

6.1 FORMAT OF MESSAGES 

6.1,1 ALL ERROR MESSAGES CONSIST OF THREE LINES OF DATA: 

THE FIRST LINE IS A BRIEF MESSAGE WHICH EXPLAINS WHAT FRPOP 
WAS DETECTED (EG, THE RESULT Of THE "ABSF" INSTRUCTION WAS 
BAD). 

THE PREFIX "HOT;" OR "WARM:" IS ALSO ATTACHED TO THE MESSAGE 
TO INDICATE THE SOURCE OF THE ERROR; THF FPU-F UNIT OR THE 
PDP-11 /6X RESPECTIVELY, 

THE SECOND LINE CONSISTS OF DATA HEADERS TO IDENTIFY THE 
VALUES TKPED OUT ON LINE THREE. THESE HEADERS WILL PITHFR BE 
OF THE FORM "EXPECTED" AND "RECEIVED" DATA, OR WILL BE A 
MNEMONIC NAME OF A WORD LOCATION IN MEMORY OR REGISTERS, 

THE THIRD LINE DISPLAYS THE CONTENTS OF THE r,OCATlONS 
SPECIFIED PY LIME TWO AS SIX DIGIT OCTAL NUMBERS. NOTE THAT 
ALL DATA DISPLAYED IN ANY MESSAGES ARF OCTAL NUMBERS, 

AS EXPLAINED IN SECTION 5.2, SETTING SW<13>=1 WILL SUPPRESS 
THE TYPING OF THESE MESSAGES, 
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6.1,2 FLOATING POINT UNIT DATA FORMATS: 

FLOATING POINT STATUS WORD (FPS): 

BIT»« OCTAL FUNCTION 

15 1004j0k? FER - FLOATING ERROR FLAG 

SET WHEN EITHER FIUV, FTU, FIV, FIG ENABLED 

AND APPROPRIATE EXCEPTION OCCURRED. 
14 »40f!00 FID - FLOATING DISABLE INTERRUPTS 

NO FP INTERRUPTS TO VECTOR 244(8) IF SET, 
13» 12 NOT USED 

11 0diPI<df^ FIUV - FLOATING UNDEFINED VARIABLE INTERRUPT 

IF SET, C-tJ) MEMORY DATA IS ERROR 
10 002PI00 FIU - FLOATING INTR UNDERFLOW 

IF SET AND UNDERFLOW, SET FER, STORE ANSWER, 

EXPONENT WRONG BY +4110(8) 

IF CLEAR AND UNDERFLOW, ANSWER <-- ZERO 
9 0^1000 FIV - FLOATING OVERFLOW INTERRUPT 

IF SET AND OVERFLOW, SET FFR, STORE ANSWER, 

EXPONENT WRONG BY -400(R) 

IF CLEAR AND OVERFLOW, ANSWER <-- ZERO 
8 t9^di<d^ FIC - FLOATING INTEGER CONVERSION INTERRUPT 

IF SET AND "5TCFI" ERROR, ANSWER <-- ZERO, SET 

ERROR 

IF CLEAR AND "STCFl" FRPOP, ANSWER < — 7ER0 

FD - FLOATING MODE 

IsDOUBLE, 64 BIT OPERANDS C4W) 

0=SINGLE, 32 BIT OPERANDS {2W) 

FL - INTEGER MODE 

1=L0NG, 32 BIT INTEGERS (2W) 

0SSHORT, 16 BIT INTEGERS (IW) 

FT - ROUND/TRUNCATE MODE 

1=TRUNCATE RESULTS 

0=ROUND RESULTS 

EMM - PUT FPll-E ONLY IN MAINTENANCE MODE 

FN-FZ-FV-FC - FLOATING CONDITION CODES 

FLOATING EXCEPTION CODES (FEC): 

(NOT USED) 

FP OPCODE ERROR 

FP DIVIDE-BY-ZERO ERROR 

FP INTEGER CONVERSION ERROR 

FP OVERFLOW ERROR 

FP UNDERFLOW ERROR 

FP UNDtFINLD-VARIABLE/(-0) ERROR 

FP MAINTENANCE TRAP 

NOTE - IN "FEC" CODE Tl^PEOUTS IN ERROR MESSAGES ONLY THE LOW 
ORDER B^TE IS USED - IGNORE THE PROGRAM FLAG BIT IN THE UPPER 
BYTE, 



7 


930203 


6 


dy>i>\<^'d 


5 


000010 


4 
3:0 


003020 

!^00017 



OCTAL 


ENABLE 


P0 


(NONE) 


02 


(NONE) 


i>4 


(NONE) 


«>6 


W/FIC 


10 


W/FIV 


12 


W/FIU 


14 


W/FIUV 


16 


W/FMM 
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FLOATING POINT DATA: 

Itf FLOAT MODE (FD=0), IS 2-16. BIT WOPDS, 32, BITS 
IN DOUBLE MODE (FD=1), IS 4-lb. BIT WOFDS, 64, BITS 

FIPST WORD: (BOTH F, D MODES) 

B15=SIGN OF NUMBER (!/-» 0/+) 

B14:07=EXPONENT, S.BITS, FROM -128./+127. 

Sab:00=FRACTlON» 7, BITS 
SECOND WORD: (BOTH f, D MOOES) 

B15:09=FRACTION, 16. BITS 
THIRD, FOURTH WORDS: (ONLY D MODF) 

B15:ak)» B15:0O=FRACTION, 32. PITS 

IN F MODE, THE COMPOSITE 24, BIT FRACTION 
IS FORMED BY: 

.1« [I«ORD1-BIT<06:00>]« tWORD2-BIT<15:00>) 

IN D MODE, THE COMPOSITE S6, BIT FRACTION 
IS FORMED BY: 

,1# (WORDJ-BIT<06:00>J» (WORD2-BIT<15:00>] 

« tWORD3-faTT<15:00>J» [WOPD4-BIT<15:00>] 

FOP A MORE DETAILED OPERATION /EXPLANATION OF FLOATING POINT 
DATA FORMATS AND OPERATIONS, SEE THE PDP-11/bX PROCESSOR 
HANDBOOK SECTION ON THE FLOATING POINT INSTRUCTION SET, 

6.2 RECOVERY 

RECOVERY FROM ERRORS HAS BEEN ATTEMPTED TO BF MADE AS 
AUTOMATIC AND EFFORTLESS AS POSSIBLE. HOWEVER, IN MANY CASFS, 
DUE TO THE NATURE OF THE ERROR, THE PROGRAM MAY NOT EVEN BE 
ABLE TO BE RUN (FG, IF THE FLOATING POINT MODULE IS IN A HUNG 
STATE, AND CAM NEVER ENTER THE READY STATE TO ACCEPT A NEW FPP 
INSTRUCTION), AT THIS POINT, SOLVING THE PROBLEM IS A DIRECT 
FUNCTION OF THE OPERATORS INGENUITY, THIS TEST SERIES HAS 
BEEN DESIGNED TO TEST THE FLOATING POINT PROCESSOR SO THAT 
THESE TYPES OF FAILURES TO RUN WILL BE MINIMAL. THE TESTS 
HAVE BEEN PLACED IN A SPECIFICALLY STRUCTURED StQUENCE IN THE 
PROGRAM TO IMPLEMENT THIS STRATEGY; TESTING THE MOST PASIC 
ELEMENTS FIRST, PROCEEDING UPWARD IN COMPLEXITY AFTER 
ESTABLISHING THEIR CORRECT OPERATION, THIS 15 WHY IT IS 
EXTREMELi IMPORTANT THAT THE FLOATING POINT TEST PROGRAMS BE 
(1) RUN IN THE PRESCRIBED ORDER, AND (2) ONLY BE STARTED AT 
THEIR BEGINNING ADDRESS (USUALLY 200(fl)), THE PROGRAM WILL 
DISPLAY, AT AN ERROR, THE MOST PERTINENT INFORMATION RELATING 
TO THE ERROR, AND A BRIEF EXPLANATION OF THE FAILING FUNCTION. 

6.3 CAUSES 
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THESE TEST PROGRAMS ARE NOT HARDVuAPE ORIENTED, AND AS SUCH IT 
IS NOT POSSIBLE TO CALL OUT PARTICULAR HARDWARE AREAS AND 
MODULES RELATING TO A GIVEN FUNCTIONAL FAILURE. HARDyjARE 
DIAGNOSIS FOP A PARTICULAR MACHINE MUST BE DONE USING THE 
APPROPRIATE ENGINEERING ROM FLOWS AND PRINTS, ALONG WiTH THE 
KNOWN FUNCTIONAL ERRORS (AS DETECTED BY THE PROGRAMS), THIS 
IS THE INTENT UNDER WHICH THESE INSTRUCTION TESTS wERE 
DESIGNED AND CODED, 



7. RESTRICTIONS 

7.1 STARTING 

THE PROGRAM MUST BE STARTED AT LOCATION 24*0(8) ALWAYS, 

7.2 OPERATIONAL 

THERE ARE NO OPERATIONAL PbSTPlCTI ONS. 

8. MISCELLANEOUS 
8,1 EXECUTION TIME 



AVERAGE EXECUTION TIMf PER PASS 
MODEL SHORTEST PASS LONGEST PASS 

PDP-11/6X MICROCODE 0:20 9:3fi 

PDP-n/6X W/FPll-E 0:15 5:1S 

TIMES SPECIFIED AS ( MINUTES) ! f SECONDS ) 

SHORTEST PASS ::= PASS=1, NO ITERATIONS, USING; 

Si^H=(l?04l^03) FOR PDP-11/6X MICROCODE 
SWP=(0040C?2) FOR PDP-11/6X W/FPll-E 

LONGEST PASS ::= PASS> = 2, '>i}W. ITFPATIONS/TF.ST, USING: 
6i^R=('10POP3) FOR PDP-11/6X MICROCODE 
SWR=(000002) FOR FDP-11/bX W/FPU-E 

8.2 STACK POINTER 

THE STACK POINTER IS SET TO 1100(R) AT THE START OF EACH PASS. 
IF ALL 15 OPFRATING CORRECTLY, IT SHOliLD ALSO BE THIS VALUE AT 
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THE START Of E.ACH TEST, AND AT Thfc END Of A PASS. 

8.3 POWER FAIL 

THE TESTS MAX BE POWER FAILED AT ANY TIMF. SPURIOUS ERROR 
MESSAGES MAY OCCUR IF THE FAILURE OCCURRED WHILE THE F.p.U. 
WAS EXECUTING A FUNCTION, AS NONE OF ITS PtGISTtHS (FPS, FEC, 
FEA, ACCUMULATORS) APE SAVED IN THE EVENT OF A POWER FAILURE. 
HOWEVER, THESE MESSAGES SHOULD ONLY OCCUR ONCE (IF AT ALL) 
IMMEDIATELY AFTER POWER IS RESTORED. WHEN POWER IS RESTORED, 
"POWER" IS TYPED ON THE CONSOLE AND EXECUTION CONTINUES WHERE 
IT WAS INTERRUPTED, 

NOTE THAT THE "VOLATILE" SWITCH REGISTEP CONTENTS ARE SAVED 
AND RESTORED FROM THE STACK IN A POWER FAIL SEQUENCE; 
THEREFORE THE SWITCH REGISTER SETTINGS SHOULD NOT BE LOST OVER 
A POWER FAIL, 



9, PROGRAM DESCRIPTION 

9,1 ORGANIZATION 

THESE PROGRAMS ARF ORGANIZED AS MUCH AS POSSIBLE IN A 
STRAIGHTFORWARD, LINEAR MANNER. THE MAIN BODY OF CODE IS 
STRUCTURED AS FOLLOWS; 

(1) INITIALIZATION ROUTINE 

- SETS UP VECTORS, TYPES HEADER, ETC. 

(2) MAIN BODY OF TESTS 

- INLINE TEST CODE, INLINE TEST CALLS 

(3) END OF PASS ROUTINE 

- END OF PASS PROCESSING 

(4) TEST SUBROUTINES 

- SUBROUTINES CONTAINING COMMON TEST CODE 

(5) OVERHEAD ROUTINES 

- SERVICE SUBROUTINES ( TYPEOUT, ETC . ) 

WHEREVER FEASIBLE, COMMON SECIONS OF CODE FOP WIDFLY USED 
FUNCTIONS ARE CONDENSED INjO SUPROUTlNfcS TO CONSERVE MEMORY. 
THIS INCLUDES NOT ONLY STANDARD SERVICE ROUTINES fSnCH AS 
SCOPE, ERROR, AND ASCII TYPEOUT), RUT ALSO TESTING ROUTINES 
WHICH PERFORM VERY SIMILAR FUNCTIONS. THUS IN MANY CASES [THE 
"ADPF" INSTRUCTION TESTING, FOR EXAMPLE) A SINGLE BODY OF CODE 
(A SUBROUTINE) IS USED TO PERFORM ALL THE FUNCTIONAL TFsTS, 
WITH A VARIABLE PARAMETER LIST PASSED AT EACH CALL CONTAINING 
THE. DATA OPERANDS AND EXPECTED RESULT FOR EACH INDIVIDUAL 
TEST. THIS CONSTRUCTION FACILITATES THE ADDI Tl ON /DELETI ON OF 
TESTS (SHOULD THAT FVER BE NECESSARY), AND AI SO GREATLY 
CONSERVES "EMORY SPACE REQUIREMENTS WHEN A lAPGF MUMBER OF 
CALLS TO A GIVEN BODY OF CODE ARE REQUIRED. 
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THE, INDIVIDUAL TFSTS WITHIN EACH PROGHA^ HAVE ALSO BEEN 
SEQUENCED IN A PAPTICULAP ORDEP TO FACILITATE THE DETECTION 
AND RFSOLUTION OF ERRORS AS QUICKLY AS POSSIBLE. EACH OF THE 
TESTS BEGINS AS SIMPLY AS POSSIBLE, fIRST TESTING THE MOST 
BASIC ELEMENTS. MORE COMPLEX ELEMENTS ARE TESTED AFTERVvArDS, 
EMPLOYING A PHILOSOPHY THAT THE SIMPLER THE TEST, THE BETTER 
THE RESOLUTION, ALL FUNCTIONS ARE EVENTUALLY TESTED, BUT 
HOPEFULLY MOST ERRORS WILL BE CAUGHT AND CORRECTED EARLY. A 
MUCH MORE DETAILED ANALYSIS OF THE SEQUENCE OF TESTS PERFORMED 
IS PRESENTED IN SECTION 9.2. 

9.2 TEST DESCRIPTION 

THIS DIAGNOSTIC CONTAINS TESTS FOR THE FLOATING POINT 'ADD-', 
'SUR-', 'MUL-', AND 'DIV-' INSTRUCTIONS. ALL COMBINSTIONs OF 
THE SINGLE/DOUBLE, ROUND/TRUNCATE, AND OVERFLOW-UNDERFLOW 
INTERRUPTS ENABLED/DISABLED MODES ARF EMPLOYED, EACH TEST 
GENERATES A PAIR OF RANDOM NUMBER OPERANDS, THEN USES BOTH THE 
HARDWARE AND SOFTWARE ROUTINES TO GENERATE AN ANSWER: EACH 
SHOULD GENERATE THE SAME ANSWER (WITH A ♦/- 1 DEVIATION IN THE 
'LSB' ALIOWED). FLOATING POINT 'LD-', 'ST-', 'CMP-', AND 
STATUS INSTRUCTIONS ARE ALSO USED FOR MANIPULATING THE 
OPERANDS AND RESULTS. 

THE PURPOSE OF THESE TESTS IS TO EXFRClSE BOTH THE DlTA pATH 
AND CONTROL PORTIONS OF THE FLOATING POINT UNIT SELECTED FOR 
TESTING WITH AN 'UNLIMITED' SUPPLY OF VAPYU'G OPERANDS, AS 
MIGHT BE ENCOUNTERED IN A USER/ APPL IC ATI ON PROGRAM TYPE 
ENVIRONMENT. 

9.3 SUBROUTINE ABSTRACTS 

9.3.1 TRAPCATCHER 

THE TRAPCATCHER IS A SERIES OF INSTRUCTIONS OCCUPYING THE 
INTERRUPT VECTOR AREA OF MEMORY. IT CONSISTS OF THE SEOUENCE; 

.WORD .+2 ;PC AFTER TRAP 
.WORD ;PS AFTER TRAP 

PLACED AT EACH VECTOR ADDRESS IN LOCATIONS 4-776(8) OF '^V'^QHi, 
THE FIRST WORD OF EACH PAiR ("PC AFTER TRAP") POINTS TO THE 
SECOND WOFD, WHICH SERVES A DUAL PURPOSE AS 

(1) THE NE*, LOADED PS (ALL ZEROS), AND (2) THE NEXT 

INSTRUCTION TO EXECUTE (0=HALT). 

WhFN THE PROGRAM IS EXECUTING, ANY REQUIRED VECTORS ArF SET UP 
IN THE VECTOR AREA WITH APPROPRIATE VALUES; THE OTHERS BEING 
LEFT IN THE "TRAPCATCHER" STATE. THUS, IF AN UNEXPECTED TRAP 
EVER OCCURS IN THE MACHINE, IT WILL BE CAUGHT, AND TmE MACHINE 
SUBSEQUENTLY HALTED, DISPLAYING THE VECTOR ADDRESS • PLi'S FOUR 
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« IN THF ADDRESS LIGHTS. 
9.3.2 SCOPE ROUTINE - SSCOPK 

THE SCOPF, ROUTINE IS ENTERED FROM THE FIRST INSTRUCTION OF 
EACH TEST IN THE PROGRAM. (NOTE THAT BY DEFINITION, A "TEST- 
WILL BE DESIGNATED AS THE SECTION OF CODE E^FTWEEN TWO "SCOPE" 
STATEMENTS ) THIS ROUTINE PROVIDES THE OVERHEAD CODE NECESSARY 
TO IMPLEMENT SEVERAL OF THE SWITCH REGISTER CONTROL OPTIONS. 
UPON ENTRANCE TO A TEST, THE SCOPE STATEMENT AT THE BEGINNING 
SETS UP CFRTAIN LOCATIONS (SEE BELOW) TO SPECIFY THE CURRENT 
TEST NUMHEP AND LOOPING ADDRESS (FOR ITERATIONS). CONTROL IS 
THEN PASSED TO THE ACTUAL TEST CODE, PERFORMING THE DESIRED 
TEST UPON EXIT, THE SCOPE STATEMENT OF THE NEXT TEST IS 
ENTERED, WHICH DETERMINES WHETHER TO (1) LOOP PACK TO THE 
PREVIOUS TEST (EG, FOR ITERATIONS) OR (?) INITIALIZE FOP THE 
NEXT TEST (AS DESCRIBED EARLIER, ABOVE). 

ENTRANCE TO THE SCOPE ROUTINE IS VIA AN "lOT" TRAP CALL 
THROUGH LOCATION 20C8). (FROM THE SCOpE=IOT KQUATt). 
DEPENDING UPON THE SWITCH SETTINGS (SEE 5.2), CODE IS PRESENT 
TO- LOAD THE FPU MICRO BREAK REGISTER, lOOP ON THE CURRENTLY 
EXECUTING TEST, LOOP ON A SPECIFIC TEST, PERFORM ITERATIONS OF 
EACH TEST, ANn SET UP ADDRESSES FOR POSSIBLE LOOPING ON 
ERRORS, IMPORTANT VALUES USED IN THIS ROUTINE ARE: 

SMXCNT - MAXIMUM NUMBER OF ITERATIONS PER TEST 
(GENERALLY WILL BE 2000(10)) 

STSTNM - A COUNTER INDICATING THE NUMBER (1-377(8)) OF 
THE TEST CURRENTLY BEING EXECUTED 

SLPADR - CONTAINS THE ADDRESS TO WHICH THE SCOPE 
ROUTINE WILL LOOP, IF THE CURRENT TEST IS 
BEING LOOPED UPON 

SLPERR - CONTAINS THE ADDRESS TO WHICH THE ERROR 
ROUTINE (SEE 9.3.3) WILL LOOP, IF AN ERROR 
OCCURS AND THE LOOPING ON AN ERROR OPTION IS 
SPECIFIED IN THE SWITCHES. SET UP BY SCOPE, 
GENERALLY WILL BE THE SAMt AS SLPADR, ABOVE, 

9.3,3 ERROR ROUTINE - SF-HPOP 

THE ERROR ROUTINE IS ENTERED WHEN THE TEST CoDE HAS DETERMINED 
THAT AN EPROR HAS OCCUPRFD AS PART OF A TEST, THROUGH IISF OF 
THIS ROUTINE, THE TEST HAS A MEANS OF SIGNALING AN FRPOP TO 
THE ld52« OPERATOR/MONITOR; AND IMPLEMENTING THE 
CONTROL FUNCTIONS FOR HALTING ON ERROR, BELL ON ERROR, AND 
LOOPING ON ERROR. IN ADDITION, THE ERROR ROUTINE HAS THE 
PROVISION TO T/PE OUT ON THE OPERATOR'S CONSOLE ft MESSAGE 
BRIEFLY EXPLAINING THE ERROR, AND SOME OF THE MOST PERTINENT 
DATA VALUES TO HELP DIAGNOSE THE CAUSE (SEE SECTION 6.2), 

THE CALLING MECHANISM IS SIMILAR TO THAT EMPLOYED FOR THE 
SCOPE ROUTINE (VIA A TRAP), EXCEPT IN THIS INSTANCE, THE "LMT" 
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INSTRUCTION IS USED, TRAPPING THROUGH LOCATION 3«C8). (NOTE; 
THE EUUATE ERROR N=EMT N). THE LOWER BYTE OF THE EMT 
INSTRUCTION IS CAPABLE OF TRANSMITTING A NUMBER FROM ei-377(8), 
WHICH WILL RE TERMED THE "ERROR ITEM NIJMhEF." THIS NUMBER 
DETERMINES WHICH ERROR MESSAGE, AND ASSOCIATED DATA VALUES 
WILL BE -^YPED OUT WHEN A PARTICULAR ERROR IS SIGNALED. IF 
THIS NUMBER IS ZERO, JUST THE PC OF THE CALLING "ERROR" 
INSTRUCTION WILL BE TYPED, OTHERWISE, THE NUMBER IS USEO AS AN 
INDEX THROUGH THE ERROR TABLE (SEPRTB) TO (• IND THE APPROPRIATE 
VALUES TO TYPE fSEE PROGRAM LISTING FOR FURTHER DETAILS). 

IMPORTANT VALUES USED IN THIS ROUTINE ARE: 

EREG3 THRU EPEG7 - CONTENTS OF GENERAL REGISTERS RPt 

THRU R7 JUST BEFORE ERROR CALL 
SERTTL - COMULATIVE NUMBER OF ERRORS FNCOUNTERED TO 

DATE 
SERPPC - CONTAINS THE PC OF tHF "ERROR" INSTRUCTION 

JUST EXECUTED 
SlPERR - CONTAINS THE ADDRESS WHICH WILL BF LOOPED 

UPON FOR THE ERROR LOOPING FACILITY 

9.3.4 ERROR MESSAGE lYPEOUT ROUTINE - STYPERR 

THIS ROUTINE CSTYPERR ENTRY POINT) IS CALLED BY THE ERROR 
PROCESSING ROUTINE DESCRIBED IN 9,3.3 ABOVE. ITS PURPOSE IS 
TO IMPLEMENT THE FPROR MESSAGE/DATA VALUE ERROR TlfPEOUT 
FACILITY. THE SUBROUTINE WILL, GIVEN THF INDEXING BKTE FROM 
THE ERROR CALL INSTRUCTION, PICK UP THE CORRECT ERROR MESSAGE 
VECTOR FROM SERRTB (ERROR TABLE), AND TYPE OUT THE ERROR 
MESSAGE, DATA HEADER, AND DATA VALUES ON THE CONSOLE. 

9.3.5 TYPE ROUTINE - STYPE 

THIS ROUTINE IS THE STANDARD SYSTEM TYPEOUT ROUTINE FOR ASCII 
SINGLE-CHARACTER-PER-BYTE STRINGS, IT IS CALLED THROUGH A 
TRAP INSTRUCTION WITH THE NEXT WORD CONTAINING THE ADDRESS OF 
THE FIRST CHARACTER IN THE STRING. TYPING TERMINATES WHE.'^ AN 
ALL-ZERO BYTE IS FOUND. HORIZONTAL TAB STOPS "VRF ALSO 
AUTOMATICALLY PLACED, 

9.3.6 OCTAL NtlMBER TYPE ROUTINE - $TYPOC 

THIS ROUTINE CONVERTS THE TOP NUMBER ON THE STACK TO a 6-niGlT 
OCTftL REPRESENTATION, AND TYPES IT ON THE CONSOLE USING THE 
TYPE ROUTINE STYPE. SEE LISTING FOR OPTIONS AMD FURTHER 
DETAILS, 

9.3.7 POWER UP AND DOWN ROUTINES - SPWRUP AND $PWRDN 

THESE Iv^O ROUTINES ARE ENTERED FOR THE POWFR UF AND DOWN 
CONDITIONS, RESPECTIVELY. THE POWER DOWN ROUTINE (SPWRDN) 
SftVES THE GENERAL REGISTERS AND STACK POINTER, THE POWER UP 
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ROUTIN'E (SPWRUP) COPPESPONDINGLY PESTOBFS THE REGISTERS, STACK 
POINTER, AND TifPES THE MESSAGE "POWER" «HF;N POWER IS PESTOpFD, 
THE VOLATILE INTERNAL SWITCH REGISTER IS ALSO SA VED/RESTQPED 
BY THIS ROUTINE. 

9.3.8 END OF PASS ROUTINE - SEOP 

THE END OF PASS ROUTINE COUNTS THE NUMBER OF PASSES PERFORMED, 
DINGS THE BFLL/TYPES A MESSAGE (IF ENABLED), SETS/CLEARS THE 
T-BIT (IF EVARLED), AND ALSO INTERFACES TO THE MONITOR, IF 
PRESENT. IT ALSO OPTIONALLY LOOPS FOR A NUMBER OF SURPASSES 
BEFORE SIGNALLING AN END OF PASS CONDITION, 



10, ACT/APT/XXDP 

10.1 ACT COMPATIPILITY 

THIS PROGRAM WILL FUN UNDER THE ACT SYSTEM. 

1?.2 APT COMPATIBILITY 

THIS PROGRAM ^ill PUN UNDER THE APT SYSTE** MONTTOH. ALL 
NECESSARY SOFTWARE COMMUNICATION HOOKs ARF PRESENT. 

10.3 XXDP COMPATIBILITY 

FOP XXDP Mf[>iA COMPATIBILITY, THE TOP 2K WORDS OF THE 16K ^ORD 
MINIMUM MEMORY AREA ARE NOT DISTURBED DURING EXECUTION. 
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13 

31 

163 

172 

175 

186 

209 

256 

283 

429 

514 

522 

656 

723 

793 

849 

907 

9«1 

lk»59 

112v3 

1182 

125*) 

132k' 

1376 

1434 

15iiJ7 

1594 

1645 

1737 

1775 

1845 

1901 

1958 

2031 

2108 

2169 

2231 

2299 

2^69 

2437 

25^"7 

2580 

2657 

27 3;^ 

2807 

2874 

2944 

3016 

3l,'89 

3178 

3281 

3321 

3369 

3511 

3529 

3584 



OPB'RATIONAL SWITCH SETTINGS 




BASIC 


DEFINITIONS 






TRAP CATCHEK 








STARTING ADDHESSCFS) 






ACT1 1 


HOOKS 








APT PARAMETER BLOCK 






COMMON 


TAGS 








APT MAILBOX-ETABLE 






ERROR 


POINTER TABLE 






PROGRAM DEFINED COMMON TAGS 




START 


OF PASS ROUTINE 






INITIALIZE THE COMMON 


TAGS 




TI 


EXERCISE 


ADDF 


ALL INTERRUPTS ON, ROUNDING MODE 




T2 


EXEHCISF 


ADOD 


ALL INTERRUPTS ON, ROUNDING MODE 




T3 


EXERCISE 


ADDF 


OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


T4 


EXERCISE 


ADDD 


, OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


T5 


EXERCISE 


ADDF 


ALL INTERRUPTS ON, TRUNCATE MODE 




T6 


EXERCISE 


ADOD 


ALL INTERRUPTS ON, TRUNCATE MODE 




T7 


EXFRCISF 


ADDF 


OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


T10 


EXERCISE 


BDDD 


OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


TU 


EXFRCISE 


SUPF 


ALL INTERRUPTS ON, ROUNDING MODE 




T12 


EXERCISE 


SUBD 


ALL INTERRUPTS ON, ROUNDING MODE 




TU 


EXERCISE 


SUBF 


, OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


T14 


EXERCISE 


SUBD 


, OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


T15 


EXFPCISE 


SUBF 


, ALL INTERRUPTS ON, TRUNCATE MODE 




Tib 


EXEFCISE 


SUBD 


ALL INTERRUPTS ON, TRUNCATE MODE 




T17 


EXERCISE 


SUBF 


OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


■m 


EXEFCISE 


SURD, 


OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


T21 


EXERCISE 


MULE, 


ALL INTERRUPTS ON, ROUNDING MODE 




T22 


EXFRCISF 


MULD 


ALL INTERRUPTS ON, ROUmDING MODE 




T2 3 


EXEkCISE 


«ULF, 


OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


T24 


EXERCISE 


MULD, 


OVERFLOW AND UNDFpFLOW INTERRUPTS 


OFF, 


T25 


EXERCISE 


MULF 


ALL INTERRUPTS ON, TRUNCATE MODE 




T26 


EXERCISE 


MULD, 


ALL INTERRUPTS ON, TRUNC»TE MODE 




12 7 


EXERCISF 


MULJ 


OVERFLOW AND UNDERFLOW INTErhUPTS 


OFF, 


T3E! 


EXERCISE 


MULD 


OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


T31 


EXFPCISE 


01 VF 


ALL INTEPRUFTS ON, ROUNDING MODE 




132 


EXERCISF 


niVD 


ALL INTERRUPTS ON, ROUNDING MODE 




T33 


EXERCISE 


DIVF 


OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF-, 


T34 


EXERCISE 


niVD 


OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


T35 


EXERCISE 


DIVF 


ALL INTERRUPTS ON, TRUNCATE MODE 




T36 


EXEFCISE 


DIVD 


, ALL INTERRUPTS ON, TRUNCATE MODE 




T37 


EXERCISE 


OIVF 


, OVERFLOW AND UNDERFLOW INTERRUPTS 


OFF, 


T4? 


EXERCISE 


DIVD 


, OVERFLOW AND UNDERFLOW INIErPUPTS 


OFF, 


T41 


EXERCISE 


DIVF 


, INTERRUPT DISABLE SET, HOUNDING MODE 


T4? 


EXERCISE 


DIVD 


INTERRUPT DISABLE SET, ROUNDING MODE 


T43 


EXERCISE 


DIVF 


, INTERRUPT DISABLE SET, TRUNCATE MODE 


T44 


EXERCISE 


DIVD 


INTERRUPT DISABLE SET, TRUNCATE MODE 


T45 


ADDF, SUBF, Ml 


JLF, DIVF EXERCISER 




T46 


ADDH, St'BD, Ml 


ILD, DIVD EXFRCISEP 




SHb PASS END CONTROL 






END OF 


PASS ROUTINE (• 


10DIFIED SYSMAC) 




STATISTICS TYPEOHT SUf 


^ROUTINE 




FPP TRAP CATCHER 








HANDO^ 


NUMBFR GFNFRATC 


)R 




POLIi>H 


EXPRESSION ROU' 


riNES 





ROUNDING MODE 
HOUNDING MODE 



TRUNCATE MODE 
TRUNCATE MODE 



HOUNDING MODE 
ROUNDING MODE 



TRUNCATE MODE 
TRUNCATE MODE 



ROUNDING MODE 
ROUNDING MODE 



TRUNCATE ''"ODt 
TRUNCATE MODE 



HOUNDING MODE 
ROUNDING MODE 



TRUNCATE MODE 
TPUNCATF MODE 
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ll^l FLOATING POINT SOFTWARE ROUTINES 

*532 SCOPE HANDLER ROUTINE 

^596 ERROR HANDLER ROUTINE 

ttll ^'^^^^ MESSAGE TYPEOUT ROUTINE (MODIFIED SYS^AC) 

4744 XYPF ROUTINE 

^^'5 APT COMMUNICATIONS ROUTINE 

^"f'* BINARY TO OCTAL (ASCII) AND TYPE 

^^S? TRAP DECODER 

498i3 TRAP TABLE 

4^^* POWER DOWN AND UP ROUTINES 

'^^^^^ MESSAGES, DATA HEADERS, DATA VECTORS, OPERAND VECTORS, ETC 



FPU ADD/SUB/MUL/DIV RANDOM EXER MACYll 27(1006) 
DOFPDB.PII 04-MAY.77 17:30 



04-MAY-77 1«I18 PAGE 2 



2 




3 




t 




5 




6 




7 




e 




t 




ti 




11 




12 




13 




1« 




15 




16 




17 




le 




19 




22 




21 




22 




23 




24 




25 




26 




27 




29 




29 




30 




31 




32 




33 


801100 


34 




35 




36 




37 




3S 


000011 


39 


P90012 


40 


000015 


41 


000200 


42 


177776 


43 




44 


177774 


45 


177772 


46 


177578 


47 


177570 


48 




49 




50 


000000 


51 


000001 


52 


000002 


53 


090003 


54 


000004 


55 


000005 


56 


000006 



.TITLE FPU ADD/SUB/Miili/DlV RANDOM tXEP 

(•COPVRTCHT (C) 1976 

;»DIGITAL EOUIPWENT CORP. 

)*MAINARD> MASS. 01754 

>» 

(•PROGRAM Bl DONALD NORTH 

!• 

(•THIS PROGRAM *AS ASSEMBLED USING THE PDP-11 MAINOEC STSMAC 

(•PACKAGE (HAINDEC-ll-DZaAC-C3>> JAN 19. 1977. 

; • 

.SBTIL OPERATIONAL SWITCH SETTINGS 

>• 

;• SNITCH OCTAL USE 



HALT ON ERROR 

LOOP ON CURRENTLY EXECUTING TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT STATUS TYPEOUTS 

INHIBIT ITERATIONS 

0IBCLL ON PASS END 

IsBELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST NUMBER IN "SLPTST" 

0=TEST HFP/WFP ALTERNATELY EACH PASS 

1=TEST ONLY UNIT SPECIHED IN Sll<00> 

B»SELECT HFP, IF S>l<01>sl 

IsSELECT WFP, IF SU<01>sI 



.SBTTL BASIC DEFINITIONS 

(•INITIAL ADDRESS OF THE STACK POINTER ••• 1100 ••• 
STACK! 1100 

.EOUIV EMT. ERROR ([BASIC DEFINITION OF ERROR CALL 

.EOUIV lOT, SCOPE ((BASIC DEFINITION OF SCOPE CALL 





15 


lH000n 




14 


040000 




13 


020000 




12 


010000 




11 


004000 




10 


000000 






002000 




9 


001000 




8 


1)00400 




1 


000000 






000002 







000002 






000003 



[•MISCELLANEOUS DEFINITIONS 



HT» 


11 


LF« 


12 


CRi 


15 


CRLF« 


200 


PS= 


177776 


.EOUIV 


PS.PSW 


SIKLMT" 


177774 


PIRO» 


177772 


DSHRs 


177570 


DDISP= 


177570 


[•GENERAL PURPI 


RBi 


*e 


Rl« 




H2» 




R3« 




R4s 




R5» 




R6= 





((CODE FOR HORIZONTAL TAB 

(ICODE FOR LINE FEED 

((CODE FOR CARRIAGE RETURN 

((CODE FOR CARRIAGE RETURN-LINE FEED 

([PROCESSOR STATUS WORD 

((STACK LIMIT REGISTER 

((PROGRAM INTERRUPT REQUEST REGISTER 
[[HARDWARE SWITCH REGISTER 
((HARDWARE DISPLAY REGISTER 



((GENERAL REGISTER 
((GENERAL REGISTER 
((GENERAL REGISTER 
[[GENERAL REGISTER 
((GENERAL REGISTER 
((GENERAL REGISTER 
( [GENERAL REGISTER 
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57 


0B0007 


58 


000006 


59 


000007 


60 




61 




62 


000000 


63 


000040 


64 


000100 


65 


000140 


66 


000200 


67 


000240 


69 


000300 


69 


000340 


70 




71 




72 


100000 


73 


B40000 


74 


029000 


75 


010000 


76 


004000 


77 


002000 


79 


001000 


79 


000400 


80 


000200 


91 


000100 


82 


000040 


83 


000220 


84 


000010 


95 


B00004 


96 


B0B0B2 


97 


000001 


88 




99 




90 




91 




92 




93 




94 




95 




96 




97 




98 




99 




100 


100000 


101 


040000 


102 


020000 


103 


010000 


104 


004000 


105 


002000 


106 


001000 


107 


000400 


108 


000200 


109 


000100 


110 


■00040 


III 


000020 


112 


000010 



R7 = 


%7 ((GENERAL KEGISTE 


■R 


5P« 


t6 [(STACK POINTER 




PC» 


%7 [[PROGRAM COUNTER 


(•PRIORITY LEVEL DEFINITIONS 




PR0B 


B ((PRIORITY LEVEL 


a 


PRls 


40 ([PRIORITY LEVEL 


1 


PR2» 


100 ([PRIORITY LEVEL 


2 


PR3» 


140 ((PRIORITY LEVEL 


3 


PR4> 


200 ([PRIORITY LEVEL 


4 


PRS> 


240 ([PRIORITY LEVEL 


5 


PR6 = 


300 ((PRIORITY LEVEL 


6 


PR7s 


J40 [iPPIORITY LEVEL 


7 


(•"SWITCH RFGISTER" SWITCH DEFINITIONS 




SW15I 


100000 




SW14: 


40000 




SW13S 


20000 




SW123 


10000 




swu = 


4000 




SW10. 


2000 




SW09S 


1000 




swe9s 


400 




SW07> 


200 




SW06S 


100 




SW0S = 


40 




SM04: 


20 




SH03S 


10 




SW02> 


4 




SWBls 


2 




SWe0i 


1 




.EOUIV 


5W0<>,SW9 




.EOUIV 


SW09,Swe 




.EOUIV 


SW07,5l(7 




.EOUIV 


SW06,SW6 




.EOUIV 


5W05.SW5 




.EQUIV 


SH04.SII4 




.EOUIV 


SH03>SN3 




.EOUIV 


SN02,SN2 




.EOUIV 


SH01,SH1 




.EOUIV 


SW00>SU0 




(•DATA 


BIT DEFINITIONS (BIT00 TO BIT15) 




BIT1S> 


100000 




BIT14S 


40000 




B1II3« 


20000 




BIT12S 


10000 




BITU. 


4000 




BIT10C 


2000 




BIT09: 


1000 




BIT0BS 


400 




BIT07a 


200 




BIT06I 


100 




BIT05I 


40 




BIT04< 


20 




BIT03> 


10 
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113 


gdeeai 


1 14 


aii3is»2 


11? 


»9ie»i 


116 




117 




118 




119 




12(1 




121 




122 




123 




134 




125 




126 




127 




129 


e^eeei 


129 


BBeeiB 


Hi 


leMti 


131 


B(»eei4 


132 


iie»ei4 


133 


e»ee7e 


134 


neiett 


135 


eaeeie 


136 


0JB63 4 


137 


^Bl>eie 


138 


»»e<)H 


139 


»een» 


140 




141 




142 


aTbbeis 


14! 




144 


I>l>ttll2 


145 




1 46 


aneii* 


147 


D9BJ44 


148 




149 




\i» 


l»li)244 


151 




152 




153 


meuee 


154 


099001 


155 


999992 


156 


»B9a«3 


157 


999994 


159 


999995 


159 




168 




161 




162 




163 




164 


e99ll9l! 


165 




166 




167 




168 


99^174 



BIT02S 


4 




BITBls 


2 




BITea: 


1 




.EQUIV 


BITC9, 


,BIT9 


.EQUIV 


BITeS, 


.BITS 


.EOUIV 


BIT07, 


,BIT7 


.EOlllV 


BIT96. 


,BIT6 


.EOUIV 


F^ITBSi 


,BIT5 


.EOUIV 


BITB4, 


,BIT4 


.EOUIV 


BIT03, 


,B1T3 


.EOUIV 


BITH2, 


.BIT2 


.EQUIV 


BIT01i 


,BII1 


.EOUIV 


BIT00( 


,BIT0 


J«BASIC 


"CPU" 


TRAP 


EBBVEC= 


4 




BESVEC= 


19 




IBITVEC: 


«14 




TFTVEft 


14 




apivEC- 


14 




lOTVECs 


29 




PWBVEC» 


24 




EHTVECs 


39 




TRAPVEC 


= 34 




TKVECi 


69 




IPVEC= 


64 




PIBOVEC 


= 249 




I.MED IBSTB CODES 


HED= 


976699 



TRAP VECTOR ADDRESSES 

SiTIME OUT AND OTHER ERRORS 

I [RESERVED AND ILLEGAL INSTRUCTIONS 

J)-T" BIT 

( : TRACE TRAP 

SiBREAKPOINT TRAP (BPT) 

I I INPUT/OUTPUT TRAP (lOT) ♦•SCOPE»» 

JIPOWEB FAIL 

llEMULATOB TRAP (EMT) ••E»ROP«» 

I ("TRAP" TRAP 

JITTV KEYBOARD VECTOR 

ilTTJ PRINTER VECTOR 

! (PROGRAM INTERRUPT REQUEST VECTOR 



J Opcode 

IBEAD KHAMI 



(READ FLAGS 
IMBITE FLAGS 



RWHAMIs 922 



RFLAG= 144 
WFLAG= 344 



(•FLOATING POINT INTERRUPT VECTOR 
FPPVEC" 244 

(♦FLOATING POINT REGISTER DEFINITIONS 

AC9= %9 

ACI- %1 

AC2< t2 

AC3= »3 

AC4< %4 

ACS= %5 



.SBTTL TRAP CATCHER 



. = 9 



(»ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦24JIALT" 
(•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
(•LOCATION a CONTAINS B TO CATCH IMPROPERLY LOADED 'ECIORS 
. = 174 
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169 


999174 


999990 


179 


999176 


099990 


171 






172 


999290 


999137 


173 






174 






175 






176 






177 






178 




999294 


179 




099046 


189 


999946 


922196 


191 




999952 


182 


999952 


999999 


193 




999294 


184 




991999 


185 






186 






187 






188 






189 






199 




991009 


191 




99902 4 


192 


939924 


909290 


193 




999044 


194 


»99944 


001090 


195 




001090 


196 






197 






198 






199 






290 


931099 




291 


99t99tl 


999990 


2B2 


(191992 


991292 


293 


091994 


090912 


294 


991996 


090055 


295 


991919 


999000 


296 


001012 


990914 


297 







((SOFTWARE DISPLAY REGISTER 
((SOFTWARE SWITCH REGISTER 



DISPREG: .WORD 
SWREG: .WORD 

.SBTTL STARTING ADDRESSCES) _„ .„ 

JMP 9ISTART [[JUMP TO STARTING ADDRESS OF PROGRAM 

.SBTTL ACTll HOOKS 



( (•»•»•««••••••«••••»••••»•• 

(HOOKS REQUIRED BY ACTll 

SSVPC=. 

. = 46 

SENDAD 

. = 52 

.WORD 

.=SSVPC 

.=1909 
.SBTTL APT PARAMETER BLOCK 



(SAVE PC 

JjDSET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

((2)SET LOC.52 TO iKRO 
j: RESTORE PC 



(SET LOCATIONS 24 AND 44 AS REQUIRED FOB APT 
[(• 



.SX=. I (SAVE CURRENT LOCATION 

..24 [(SET POWER FAIL TO POINT TO START OF PROGRAM 

290 ((FOR APT START UP 

.=44 ((POINT TO APT INDIRECT ADDRESS pNTR. 

SAPTHDR ([POINT TO APT HEADER BLOCK 

.•.SX ((RESET LOCATION COUNTER 

IsETUP APT PARAHtTER BLOCK AS DEFINED IN THE APT-PDPll DIAGNOSTIC 
[INTERFACE SPEC. 



tAPTHD: 
SHIBTS: 

smbadr: 

STSTMl 

spastm: 

8UNITM: 



,M0RD [[TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

.WORD SMAIL ([ADDRESS OF APT hAIlBoX CBITS 0-15) 

WORD 10. ((RUN TIM OF LONGEST TEST ^ , 

WORD 45 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

WORD ,, ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 

iwORD tETENO-SMAIL/2 [(LENGTH MAILBOX-ETABLEf WORDS) 
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lee 






J»9 






219 






211 






212 






213 






214 




001100 


215 


001104 




216 






217 


aaii00 


000000 


218 


K01102 


000000 


219 


001104 


000000 


22a 


<I01106 


000000 


221 


001110 


000000 


222 


001112 


000000 


223 


001114 


000000 


224 


001116 


900000 


225 


001130 


000001 


226 


001132 


000000 


227 


001124 


000000 


229 


001126 


000000 


229 


001130 


000000 


230 


001132 


000000 


231 


001134 


000000 


232 


001136 


000000 


233 


001140 


000 


234 


001141 


000 


735 


001143 


000000 


236 






237 


001144 


177570 


238 


001146 


177570 


239 


001150 


000000 


240 


001152 


177560 


241 


001154 


177563 


242 


001156 


177564 


243 


001160 


177556 


244 


001163 


000 


245 


001163 


002 


246 


001164 


013 


247 


001165 


000 


248 


001166 


000000 


249 


001170 


000000 


250 


001172 


177607 000377 


251 


001176 


077 


252 


001177 


015 


253 


001200 


000012 


254 






255 






256 






257 






258 






259 


•01202 




260 


001202 


000000 


261 


001204 


000000 


262 


001206 


030000 


263 


001210 


000000 



I'THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
.••USED IN THE PROGRAM. 



CTSTNMI 

•ERFLGs 

tICNT! 

(LPADRI 

8LPERR: 

SERTTL! 

SITEMB: 

SERMAXI 

SERRPC: 

(GDADr: 
sbdadr: 

SGDDATt 
SBDDATI 



SAUTOB: 
tINTAG: 

>>" 

SWR! 

DISPLAI 

SLPTST; 

$TKSI 

STKB; 

STPSI 

STPBI 

tNULL: 

tFiLLs: 

SFILLC: 
STPFLGI 

CTIMEs: 

> ESCAPE 

SBELL; 

•QUES: 

SCRLF: 

»LF! 

!!•••• 

.SBTTL 



,>1100 

START OF 

.UOPD 

.HORD 

.NORD 

.KORD 

.HORD 

.tlORD 

,UORD 

.UORD 

.WORD 

.UORD 

.WORD 

.UORD 

.WORD 

.WORD 

.HORD 

.WORD 

.BYTE 

.BYTE 

.WORD 
END OF C 

.WORD 

.WORD 

.WORD 

177560 

177562 

177564 

177566 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

:0 

.ASCIZ 

.ASCII 

.ASCII 

.ASCIZ 



nSTART OF COMMON TAGS 
CLEAR COMMON TAGS— •- 



(CONTAINS THF. TEST NUMBER 
(CONTAINS ERROR FLAG 
(CONTAINS SUBTEST ITERATION COUNT 
(CONTAINS SCOPE LOOP ADDRESS 
(CONTAINS SCOPE RETURN FOR ERRORS 
(CONTAINS TOTAL ERRORS DETECTED 
[CONTAINS ITEM CONTROL BYTE 
(CONTAINS MAX. ERRORS PER TEST 
(CONTAINS PC OF LAST ERROR INSTRUCTION 
(CONTAINS ADDRESS OF 'GOOD' DATA 
(CONTAINS ADDRESS OF "BAD' DATA 
(CONTAINS 'GOOD' DATA 
(CONTAINS 'BAD' DATA 
((RESERVED--HOT TO BE USED 

((AUTOMATIC MODE INDICATOR 
((INTERRUPT MODE INDICATOR 



LFAR COMMON TAGS 
DSNR 
DDISP 



((APDPESS OF SWITCH REGISTER 

((ADDRESS OF DISPLAY REGISTER 
((CONTAINS TEST NUMBER TO LOOP UPON 

({TTY KBD STATUS 

((ITY KBD BUFFER 

((ITY PRINTER STATUS REG. ADDRESS 

;(TTY PRINTER BUFFER PEG. ADDRESS 
((CONTAINS NULL CHARACTER FOR FILLS 

2 ((CONTAINS • OF FILLER CHARACTERS REQUIRED 

12 ((INSERT FILL CHARS. AFTER A "LINE FEED" 

(("TERMINAL AVAILABLE" FLAG (BIT<07>i0=YES) 

((MAX, NUMBER OF ITERATIONS 

((ESCAPE ON ERROR ADDRESS 
<307><377><377> ((CODE FOR BELL 

({QUESTION MARK 

((CARRIAGE RETURN 

((LINE FEED 



/?/ 
<15> 

<13> 



APT MAILBOX-ETABLE 



((•••••I 

.EVEN 

(MAIL! 

SMSGTY: 

8FATAL1 

ITESTN! 

(PASS: 



((APT MAILBOX 
.WORD AHSGTY ((MESSAGE TYPE CODE 
.WORD AFATAI, ({FATAL ERROR NUMBER 
.WORD ATESTN {(TEST NUMBER 
.WORD APASS ([PASS COUNT 
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264 


001212 


000000 


265 


001214 


000000 


266 


001216 


000000 


267 


001220 


000000 


268 


B01222 




269 


001223 


000 


270 


001223 


000 


271 


001334 


000000 


272 


001336 


000000 


273 


001230 


000000 


274 






375 






376 






277 






278 






279 






280 


001232 





tOEVCTl 

(UNIT: 

iMSGAD: 

(MSGLGl 

(EIABLE: 

»ENV: 

8ENVM: 

(SWREG; 

tUSWR; 

tCPUOp: 



(ETEND; 
.MEXIT 



.WORD AOEVCT ((DEVICE COUNT 

.WORD AUNIT ({I/O UNIT NUMBER 

.WORD AMSGAD ((MESSAGE ADDRESS 

.WORD AMSGLG ((MESSAGE LENGTH 

((APT ENVIRONMENT TABLE 

.BYTE AENV [{ENVIRONMENT BYTE 

.BYTE AENVM ([ENVIRONMENT MODE BITS 

.WORD ASWRE6 [[APT SNITCH REGISTER 

.WORD AUSWR ((USER SWITCHES 

.WORD ACPUOP [[CPU TYPE, OPTIONS 
BITS 15-11=CPU TYPE 

11/04=01.11/05=02.11/30=03, 
11/70=06, PDas07. 0*10 
BIT 1B«REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT BiMEMORY MANAGEMENT 



11/40=04.11/45=05 
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292 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

}l« 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

3 36 

337 



001232 
001240 
»01246 
001254 
•01256 
001264 
001272 
001300 
•01302 
001310 
•01316 
•0U24 

001326 
•01334 
001342 
•01350 

•01352 
•01360 
•01366 
•01374 
K0I376 
001404 
001412 
001420 
•01422 
•01430 
•01436 
001444 
•01446 
•01454 
001462 
r01470 
•01472 
•01500 
•01506 
•01514 
•01516 
•01524 



•32524 

•00000 



•00000 
•32566 
000000 



•00000 
000000 
•00000 

032275 
033622 
000000 
000000 
•32275 
•33572 



032325 
033622 



»00000 
•32325 
033572 

•00000 



.SBTTI, ERROR POINTER TABLE 



J»THI5 TABLE CONTAINS THE IHFORMATIOK FOR EACH ERROR THAT CAN OCCUR. 

•»IHE INFOBHATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

••LOCATION SITEMU. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

'.NOTFll IF SITENB IS THE ONI.J PERTINENT DATA IS CSERRPC). 

••N0TE21 EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



EH 
DH 



DF 
f«NOTEi 



•33204 

000000 
000000 

033204 

000000 



033474 
000(^k)0 
00000fl 

033474 

•0000» 
000000 

033474 

000000 



EHV001! .WORD 



;>pOINTS TO THE ERROR MES5A0E 

I (POINTS TO THE DATA HEADER 

IJPOIHTS TO THE DATA 

((POINTS TO THE DATA FORMAT 
ERROR VECTOR TABLE (SERBTfl) HAS BEEN MODIFIED, 
SEE SERRTYP ROUTINE FOR ITS STRUCTURE 
EMJ,OHA,DTA.0i0,0.0>0,0>0 (ADDF • 



EMV002! .WORD EMK,DHA,DTA,0,0,0,0,0,0. 



EMV0e31 .WORD EML.DHA.DTA, 0,0, 0,0, 0,0,0 



(SUBF « FPS ERRORS 



000H00 0B000ii EMV004! .BORD 0,8,0,0,0,0,0,0,0,0 ((UNUSED) 

000009 000000 

000000 01*0000 

033220 033514 EMV005I .WORD EME,DHB,DTD, LOF, HIF, 0, 0, 0, 0, (ADDF » 

033632 000000 

000000 000000 

033256 033526 EMV006I .WORD E"E, DHC, DTE, LOD, HID, 0,0, 0,0,0 ( ADDO » 

033606 000000 



•32355 
033622 
000000 
000000 
032355 
033572 



033220 033514 EHV007: .WORD EMF,DH8,DTD, LOF, HIF, 0,0, 0, 0, ISUBF • 

•33632 000000 

000000 000000 

033256 033526 EHV010: .WORD EHF, DHC, DTE, LOD, HID, 0,0, 0,0, 1 SUBD • RESULT ERRORS 

•33606 000000 

000000 000000 

033220 033514 EMV011: .WORD EMG,DHB,DTD,LOF, HIF,0,0,0,0, (MULF • 

033632 000000 

•00000 000000 

033256 .033526 EMV012! .WORD EMG.DHC , DTE, LOD, HID, 0, 0, 0, 0, (MULD » 

033606 000000 
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DOFPDB.Pll 04 


338 


001532 


339 


•01540 


340 


•01542 


341 


•01550 


342 


001556 


343 


•01564 


344 


•01566 


345 


•01574 


346 


001602 


347 


•01610 


348 




349 


•01612 


350 


•01620 


351 


001626 


352 


•01634 


353 




354 


•01636 


355 


001644 


356 


•01652 


357 


•01660 


358 


001662 


359 


•01670 


360 


001676 


361 


001704 


36 2 


•01706 


363 


001714 


364 


•01722 


365 


•01730 


366 


001732 


367 


•01740 


368 


•01746 


369 


•01754 


370 


•01756 


371 


801764 


372 


001772 


373 


•02000 


374 




375 


002002 


376 


•02010 


377 


002016 


378 


•02024 


379 


•02026 


380 


•02034 


381 


•02042 


382 


002050 


383 


•02052 


384 


•02060 


385 


002066 


386 


•02074 


387 


•02076 


388 


•02104 


389 


•02112 


390 


•02120 


391 


••2122 


392 


•02130 


393 


•02136 



000000 000000 000000 

•00000 

•32405 033220 033514 EMV013: .WORD 

•33622 033632 000000 



032405 033256 BJ3S26 EMV014: .WORD 
•33572 033606 000000 
•000«0 000000 000000 



•32435 033354 033550 EMV015: .WORD 
•00000 000000 000000 
•00000 000000 000000 



032607 033204 033474 EMVei6: .WORD 

•00000 000000 000000 

•00000 000000 000000 

•00000 

•32630 033204 033474 EMV017! .WORD 

•00000 000000 000000 

000000 000000 000000 



•32651 033204 033474 EMVB20: .WORD 
000000 000000 000000 
•00000 000000 000000 



052572 033204 033474 EMV021: .WORD 
0000019 000P00 0001*00 
000000 000000 000000 



•32713 033204 033474 EMV022: .WORD 
■00000 000000 000000 
•00000 000000 000000 



•32734 033433 033502 EMV023: .WORD 

000000 000000 000000 

000000 000000 000000 

000000 

032761 033433 033502 EMV024: .WORD 

•00000 000000 000000 

000000 000000 000300 

• 00000 „ ., 

•33005 033433 033502 EMV025 : .WORD 

000000 000000 000000 

000000 000000 000000 

000000 „ „ 

033033 033433 033502 EMV0261 .WORD 

•00000 000000 000000 

000000 000000 000000 

000000 

033060 033433 033502 EMV027 1 .WORD 

•00000 000000 000000 

•••000 000000 000000 



EMH,DHB,DTD,LOF,HIF,0,0,0,e 
EMH, DHC, DTE, LOD, HID, 0,0, 0,0 

EMI, DHD.DTF, 0,0, 0,0, 0,0,0 

EMM, DHA,DTA, 0,0, 0,0, 0,0,0 
EMN,DHA,DTA,0,0,0,0,0,0,0 
EMO,DHA,DTA,0,0,0,0,0,0,« 
EMP,DHA,DTA,0,0,0,0,0,0,0 
EMO,DHA,DTA,0,0,0,0>0>0'0 

EMR,DHE,DTB,0,0,0,0,0,'^'l> 
EMs,DHE,DTB,0,0,0,0,0>0>1 
EMT,DHE,DTB, 0,0, 0,0/ 0/0,0 
EMU,DHE,DTB,0,0,0, 0,0,0/0 
EMV/DHE,DTB,0/ 0/0/0/0/0/0 



(ILLEGAL FPP TRAP 



(DIVF • 



(ADOD » 



tSUBD • FPS ERRORS 



(MULD 



(SUBF 



(DIVF » FEC/FEA ERRORS 
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394 
395 
396 
397 
398 
399 
481) 
4ttl 
402 
483 
484 
405 
4B6 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 



■02144 
002146 
032154 

002162 
»0217«l 
002172 
002200 
002206 
002214 
002216 
f02224 
002232 
002240 

002242 

B0J250 
e022S6 
802264 
»0226b 
0<I2274 
b02302 
002310 

002312 



418 002320 

419 002326 

420 002334 

421 002336 



422 
423 
424 
425 
426 
427 
42S 
429 
4 30 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
4»2 
443 
444 
4 45 
446 
447 



002344 
002352 
002360 



090000 

033105 033433 03350? EMV03"! .BORD EHK, DHE. DTB.0.0< 0. 0/ 0. 0# 

000000 000000 000000 

000000 000000 00000tl 



033132 033433 0335U2 EMVPJl! .UOPD EMX.DHE,DTB,0,0,0. 0f 0. 0. 
000000 000000 000000 
000000 000000 000000 



ISUBD • 



;DIVD • 



B33157 033433 033502 EMV032: .WORD EMr,DHE,DTB, 0,0, 0,0, 0,0.0 

000000 000000 000000 

000000 000000 000000 
000000 

032103 033204 033474 EMV033I .WORD SMA, DBA, DTA. 0. 0,0,0. 0, 0< iF-HODE EXERCISER • FpS 

000000 000000 000000 

000000 000000 000000 

032140 033204 033474 e"V0341 .WORD EMP, OHA, OTA. 0. 0, 0,0,0,0,0 JO.MODE EXERCISER • ERROR 

000000 000000 000000 

000000 000000 000000 
000000 

032175 033220 033514 EHV035: .WORD EMC,DHB,DTD,0plF,0p2F, 0P3F, Op4F, 0P5F, OP6F.0 IF.HODE EXERCISER • RE 

SULT 

033642 033652 B33662 

033672 033702 033712 
aAaaan 

032235 033256 B33526 EMV036t WORD tHD,DHC,DTE,OP10,Op20, 0P30, 0p4D, 0P5D,0PI6D, ;D.MODE EXERCISER • 

ERROR 



033722 033736 033752 
033766 034002 034016 



002362 
002364 
002366 
002370 
002 37 2 
002374 
002376 
002400 
002402 
002404 
002406 
002414 
002416 
002424 
002426 
002434 
W02436 
002444 



000000 

000000 
000000 



000000 000000 



000000 
800000 

027005 
000555 
102337 
021553 



000000 
000000 
111730 
007025 



.SBTTL PROGRAM DEFINED COMMON TAGS 

;>VAKIABLES 

FPS; .WORD 

FECI .WORD 

FLA; .WORD 

FPPOPC! .WORD 

FPPOPSl .WORD 

FPPOSP: .WORD 

EXPFEA: .WORD 

SFPSI .WORD it 

«FEC: .WORD a 

trtA; .WORD 

ANSI: .WORD 0,0,0.0 



;FPS SIORFD HERE AFTER STFPS 

;FEC STORED HERE AFTER STST 

;FCA STORED HERE AFTER STST 

;Ol,D PC SAVED HERE AFTER TRAP 

(OLD PS SAVED HERE AFTER TRAP 

;SP AFTER TRAP 

; EXPECTED FEA 

; SOFTWARE FPS 

[SOFTWARE FEC 

iSOFIWAPE FEA 

(HARDWARE FLOATING POINT ANSWER 



ANS2I .WORD 0,0,0,0 (SOFTWARE FLOATING POINT ANSWER 

LONUMI .WORD 027005,104552,111730,000555 ; RAIIDON EXERCISER OPERAND LONUM 

HINUM: .WORD 102337,166330,007025,021553 IR»NDOM EXERCISER OPERAND HINUM 
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448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

169 

470 

411 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

4S6 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 



002446 
r02454 
e02456 
002464 
002466 
002474 
002476 
002504 
002506 
002514 
802516 
002524 



175463 
124064 
156607 
861111 
803505 
852525 
182466 
101010 
076103 
125252 
044100 
000006 



030712 105726 
002361 070707 



134261 062451 
123456 mill 



000346 060612 
112400 177777 



002526 
002533 
002532 
902534 
002536 
;(»02540 
002542 
002544 
802546 

802550 
002552 
002554 
002556 
802560 
092562 

802564 
802566 
802570 
802572 
00257 4 
802576 
802600 



802602 
002604 
002606 
802610 
802612 
882614 
802616 
882620 



082622 
802630 
802636 
892642 
802644 
002646 



00 81-00 

00000a 
000000 
000000 



000000 

008080 
808000 
808880 



030000 
000000 
090000 
000000 

800000 

800000 
800080 



808000 
000000 
888080 
800808 



808000 
800800 
880880 
880000 
808080 



005015 
030455 
850106 
827182 
827856 
842120 



OPl: .WORD 175463,030712,105726,124064 

0P2: .WORD 156607,002361,070707,061111 

0P3! .WORD 003505,134261,062451,052525 

0P4: .WORD 102466,123456,111111,101010 

OPS: .WORD 076103,000346,860612,125252 

0P6; .WORD 044100,112400,177777,800006 

(•ADDED COUNTERS FOR TRACING WHFRE WE'VE BEEN 



! EXTRA RANDOM OPERANDS 



ADDC0; 
ADDCl: 
ADDC2: 
ADDC3: 
ADDC4: 
ADDC5: 
ADDC6: 
ADDC7: 
ADDC8; 

HIILC0I 

MUbci; 
MULC2: 
MULC3: 
MULC4: 
MULC5: 

D1VC0: 
Divci: 

DIVC2: 
DIVC3I 
DIVC4: 
DIVC5: 
D1VC6: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



(TOTAL NUMBER 






(A=0, B<0 






;At0, B=0 






(A30, B=0 




FOR 


(NO SHIFT BEg'D 




ADD 


(OVERFLOW 




AND 


[OVERFLOW, ENABLED 




SUBTRACT 


[UNDERFLOW 






[UNDERFLOW, ENABLED 






(TOTAL NUMBER 






(AS0 AND/OR BsO 






(OVERFLOW 




FOB 


(OVERFLOW, ENABLED 




MULTIPLI 


[UNDERFLOW 






[UNDERFLOW, ENABLED 






(TOTAL NUMBER 






(NUM A=0 






(DEN B30 




FOB 


[OVERFLOW 




DIVIDE 



(•REGISTER CONTENTS, AT ERROR, 
EREG0: .WORD 



[OVERFLOW, ENABLED 
(UNDEBFLOW 
[UNDERFLOW, ENABLED 

STORED HERE 



EREGl: 
EREG2I 
EREG3: 
EREG4: 
EREG5! 
EREG6I 
EREG7: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



005012 042115 
026461 050504 
026504 



826520 838461 



(•MESSAGES FOB BEGIN PROGRAM/START OF PASS 
BGHHESI .ASCII <CR><LF><LF><LF>"MD-11-D0FPD-" 



.ASCII "B.- 
ASCII *.." 
IasCIZ "PDP-11/6X F.P.U, ADD/SUB/MUL/DIV EXEBCISER"<CR><LF> 
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.ASCII <CR><LF>"PASS •" 



S«4 


002654 


033057 


020130 


027106 


S»S 


«e?662 


027120 


027125 


040440 


saf. 


002670 


042104 


051457 


041125 


•itn 


032676 


046457 


046125 


042057 


■inn 


0^2704 


053111 


042440 


042530 


■>»9 


002712 


041522 


051511 


051105 


51B 


002720 


005015 


000 




511 


002723 


015 


050012 


051501 NWPASII 


512 


002730 


020123 


000043 
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513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
529 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 



.SBTTt START OF PASS ROUTINE 



003000 
003004 
003006 
003012 
003014 

003020 
003026 
903034 
003042 
003050 
003056 
003064 
003072 
003100 
003106 
003112 
003116 
003124 
003132 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
012737 
012737 
012737 



001100 
001144 

001100 

027672 
000340 
030150 
000340 
031630 
000340 
031676 
000340 
022042 
001166 
001170 
000001 
003124 
003132 



003140 
003144 
003152 
003160 
003166 
003174 

003176 
003200 
003204 
003206 
003214 
003222 

003226 
003232 
003240 
003242 
003250 



003250 
003256 



013746 
012737 
012737 
012737 
022777 
001012 

000403 
012716 
000002 
012737 
012737 
012637 

005037 
132737 
001403 
012737 



012737 
005037 



003200 
177570 
177570 
177777 



000176 
000 1 7 4 
000004 

001210 
000200 



023256 
000246 



.ENABL AMA 



; ASSEMBLE ALL RELATIVE REFERENCES AS ABSOLUTE 



START: 
.SBIIL 
; (CLEAR 



INITIALIZE THE C01H0N TAGS 
THE COMKON TAGS (SCMTAG) AREA 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
022034 



001120 
001110 
001112 



000004 
001144 
001146 
175750 



001144 
001146 



001223 
001144 



llSIZE 

jlEOUAL 



64$l 
65 S: 
66SI 



MOV 
CLR 
CMP 

BNE 
MOV 

ALIZE 
HOV 
HOV 
HOV 
HOV 
HOV 
MOV 
MOV 
HOV 
KOV 
CLR 
CLR 
HOV 
MOV 
HOV 

FOR A 
TO A 
HOV 
MOV 
HOV 
HOV 
CMP 
BNE 

BR 

MOV 

BTI 

MOV 

HOV 

HOV 

CLR 

BITB 

BEO 

HOV 



;SFIRST LOCATION TO BE CLEARED 
J (CLEAR HEMORY LOCATION 

;,LO0P BACK IF NO 
-(SETUP THE STACK POINTER 



I8CHTAG.R6 

(R6)» 

ISNR,R6 ((DONE? 

.-6 

• STACK, SP 
A FEN VECTORS 

ISSCOPE,»»IOTVEC ([lOT VECTOR FOR SCOPE ROUTINE 

t340,B»IOTVEC»2 ((LEVEL 7 

»SERHOR,»»EMIVEC ( ; EMT VECTOR FOR ERROR ROUTINE 

l340.alEHTVEC*2 ((LEVEL 7 

»SIRAP,0ITRAPVEC ((TRAP VECTOR FOR TRAP CALLS 

t340,«<TRAPVEC*2(LEVLL 7 

»SPNRON,0«PNRVEC llPONER FAILURE VECTOR 

•340.«»PHRVEC42 ((LEVEL 7 

SENnCT.JEOPCI ((SETUP END-OF-PROGRAM COUNTER 

(TIHES ((INITIALIZE NUMBER OF ITERATIONS 

SESCApE ((CLEAR THE ESCAPE ON ERROR ADDRESS 

11,SERHAX ((ALLOW ONE ERROR PER TEST 

l.,tLPAOR ((INITIALIZE THE LOOP ADDRESS FOR SCOPE 

l.,SLPERR ((SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
"-1", SETUP FOR A SOFTWARE SWITCH REGISTER, 

eiERRVEC,-(5P) ((SAVE ERROR VECTOR 

((SET UP ERROR VECTOR 

((SETUP FOR A HARDWARE SWICH REGISTER 
.(AND A HARDWARE DISPLAY REGISTER 
((TRY TO REFERENCE HARDWARE SWR 
(iBPANCH IF NO TIMEOUT TRAP OCCURRED 
((AND THE HARDWARE SWR IS NOT = -1 
((BRANCH IF NO TIMEOUT 
((SET UP FOR TRAP RETURN 



l>64S,>IERRVEC 

tDSWR^SWR 

(DDISP, DISPLAY 

•-1,0SWR 

66$ 



65e 
>65$| 



(SP) 



ISWREG,SWR 
IDISPREG, DISPLAY 
(SP)t,»>ERRVGC 

(PASS 

lAPTSIZE.SEN 

67$ 

KSWREGfSWR 



(POINT TO SOFTWARE SWR 

(RESTORE ERROR VECTOR 

((CLEAR PASS COUNT 
((TEST USER SIZE UNDER APT 
((YES, USE NON-APT SWITCH 
((NO, USE APT SNITCH REGISTER 



(SET UP FPP UNEXPECTED TRAP CATCHER .....--- 
HOV •FPPILT,I'»FPPVEC (NEW PC AT FPP TRAP 

CLR »»FPPVECt2 (HEW PS AT FPP TRAP 
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569 
57(1 
571 
572 
57) 
574 
575 
576 
577 
578 
579 

5«e 

581 
582 
581 
584 
585 
586 
587 
588 
589 
59IS 
591 
592 
593 
594 
595 
596 
597 
598 
599 
61)0 
61)1 
602 
601 
604 
605 
606 
607 
608 
609 
610 
611 
612 
611 
614 
615 
616 
617 
618 
619 
620 
621 
622 
621 
624 



001262 
003266 
001272 
003274 



012700 
012701 
B0S020 
077102 



002526 
000026 



001276 104401 002622 



003)02 
001106 
001112 
001114 
001120 
001322 
001126 

001310 
0013)6 
001144 
001152 
001160 
003)66 
003170 
003376 
003404 
003412 
003420 
001426 
001414 
001442 



076600 
032700 
>!<1403 
104401 
000453 
104401 
000450 

005015 
B10461 
050106 
020124 
047105 
000012 
005015 
041040 
020105 
047125 
040440 
0S1505 
050106 
070111 



000022 
000020 



0011)0 
003)70 



020052 
042455 
052440 
0SU20 
020124 

020052 
030520 
04)110 
052111 
046114 
051524 
047440 
006452 



00)474 
00)500 
00)504 
001506 
001510 
003512 



104401 
011716 
005216 
104401 
006 
104401 



••CLEAR COUNTERS FOB TRACING INFO 

HOV •AODC«,R0 (FIRST LOCATION TO CLEAR 
MOV 126, R1 ;2fcCB) >iORDS 

2t: CLk (R01» [CLEAR AND BUHP 

SOB Rl*2$ }00 AGAIN 



050106 
044040 
044516 
051505 
006452 

047516 
026461 
020120 
026440 
052040 
051440 
046116 
000012 



001450 012706 001100 

00)454 0)2777 010000 

001462 001015 

001464 02)717 022042 

001472 001011 



002723 
001210 



000 

1177 



TIPE 



.BGNMES 



fID MESSAGE AT START 



tiiiii/iiiuiiiuiiiiiiiiniiiiiiiiiiiitiiiniiiiiiiiiiniiiiii/iiinii 

; MESSAGE ON WHETHER OB NOT HFP UNIT IS PRESENT 

;HH«MI INTO B0 

[IS THERE A HFP UNIT ? 

;N0^ BR 

[INDICATE FPll-E PRESENT 

[GO FOR SUePASS INIT 

[INDICATE NO FPll-E 

[GO FDR SUHPASS INIT 

.ASCIZ <15><I2>"» FPll-t HFp U»IT PRESENT •"<15><12> 



.ASCII <15><12>"» NO FPll-E HFP UNIT - ALL TESTS «Fp ONLJ •1<15><12> 



HED 


iRWHAMl 


BIT 


•BIT04.R0 


HEO 


70« 


TYPE 


.68$ 


BR 


NEkPAS 


TYPE 


,698 


BR 


NEWPAS 



iinii)iiiiiiiiiiiiinitiiiiiiiiiiiii/miiiiu/iiiii/iiiiiiiiiiiiii/ii 



(NtU PASS EHTEHS HERE 



175462 
022034 



[[••••*»•••••• 

NEkpASI HUV 

BIT 
BNE 

CMP 
HNL 

TYPE 

M0» 

INC 

TYPOS 

.BYTE 

TYPE 



•STACK, SP 

«BIT12,»5UB 
SUBPAS 

SEnDCT,$EOPCT 
SUBPAS 

,NWPASI 

tPASS,-(SP) 

(SP) 

6,0 

,SCRLF 



[RESET STACK PTR 

[INHIBIT STATUS TYPEOUTS 7 
[BR IF YES 

[TIME FOR A MESSAGE 7 
[NO, MOT lET 

[•pass »" 

[pass count into ... 

[ 1-N RANGE 

[TYPE OCTAL 

[ b DIGITS, NO LEADING ZEROS 

[END THE LINE 
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625 
626 
627 
628 
629 
610 
611 
612 
633 
634 
6)5 
6)6 
617 
618 
619 
640 
641 
642 
6<) 
644 
645 
646 
647 
648 
649 
650 
651 
652 
651 
654 



[MEW SURPASS ENTERS HERE 



[[>•••• 

SUBPASI 



001516 012706 001100 

001522 076600 000022 

001526 0)2700 000020 

00)5)2 0014)0 

00)511 076600 000144 

031540 032777 000002 175376 

001546 001411 

001550 012777 000001 175166 

D01556 001401 

001560 042700 010000 

001564 000402 

001566 052700 010000 

001572 076600 000144 

00)576 012700 010000 

001602 001404 



001604 012717 012066 010414 19(: 

001612 00040) 

001614 0127)7 012074 0)0414 20«l 

00)622 21$I 



2S: 
)Si 



MED 
BIT 

BEO 



BIT 

BED 

BIT 

HEQ 

BIC 

UB 

BIS 

MED 

BIT 

HEU 

MOV 

DP 

MOV 



• STACK, SP 

,RWHAMI 
IBIT04,P0 

204 

,RFLAG 

4SW01 , 0SHR 
1( 

•SW00,0SWR 

2t 

IB]T12,R0 

)« 

IBIT12,B0 

,UFLAG 

IBIT12,B0 
20$ 

«ASCHOT,HOTWBM 

21S 

•ASCWRM,HOTMHM 



[RESET SP FOR INSURANCE 

[GET WHAHl INTO R0 

[1=HFP PRESENT, 0=NO 

[IF NO HFP, TEST HARM ONLY 

[GET FLAGS INTO R0 

[SII01! 1 = HFP OR HFP TEST ONLY 

( 0SALIEPNATE HFP/HFP PER PASS 

[SW00I 1>WFP ONLY 
[ 0=HFP ONLY 
[CLEAR HFP ENABLE FLAG<5> FOR WFP 

I SET HFP ENABLE FLAC<5> FOR HFP 
[REWRITE FDAGS 

[TEST WHO'S ENAaLEDl HOT, WARM 
[SET APPROPRIATE HEADFH1 

["H0T1 " 

["WAHMl ■ 
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655 

656 

657 

658 

659 

66«l 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

67J 

673 

674 

675 

676 

677 

678 

679 

6Se 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

696 

699 

700 

701 

703 

703 

704 

705 

706 

707 

708 

709 

710 



;»TEST 1 



•••••••••••••»»»»•••••♦•••••*•»***••********•*•*" 

EXERCISE ADDF, ALL INTERRUPTS ON, ROUNDINO MODE 



1103622 
003624 
003632 
003640 
003644 
003650 
003654 
003660 
003664 
093670 
003674 
003700 
003704 
003710 
003712 

003716 
•23722 
003726 
003732 
B03736 
033742 
•03746 



800004 
012737 
012737 
005037 
005037 
005037 
005037 
005037 
004737 
002426 
004437 
023510 
02 3510 
023566 
023540 

013700 
170127 
172437 
172537 
172737 
170127 
012737 



•03754 
•03756 
•03760 
•03764 
B03772 
•03774 
•04000 

004002 
004006 

004010 

•04014 
004022 
004024 

004026 
004034 

•04036 

004040 
004042 
004044 

•04046 
•04052 
•04060 



003756 
007400 
002402 
002404 
002 362 
002364 
002366 
023342 
002436 
023506 
002426 
002436 

002416 

002400 
040000 
002426 
002436 
002416 
007400 
003754 



002376 
002400 



TSTl: SCOPE 
MOV 
MOV 
CIR 
CLR 
CLR 
CLR 
CLR 
JSR 
.WORD 
JSR 
SPUSH 
SPUSH 
SADD 
SPOPX 

MOV 

LDFPS 

LDF 

LDF 

LDF 

LDFPS 

MOV 



172600 
172201 
170237 
023737 
00140 3 
174237 
104001 

005737 
100014 
170337 

023737 
001401 
104023 

023737 
001401 
104023 

173702 
170000 
001416 

174237 
162737 
005637 



002362 

002362 002400 

002406 

002400 AER 

002364 

002364 0X2402 

002366 002404 1$: 



002406 
000001 
002406 



LDF 

ADDF 

STtPS 

CMP 

BEU 

STF 

ERROR 

TST 
bPL 

STST 

CMP 

BEQ 
ERROR 

C«P 
BEQ 
ERROR 



IARETl,EXPrEA 

4007400, SFPS 

SFEC 

(FEA 

[PS 

FEC 

FEA 

PC,PANDL2 

LONUH,HINUM 

R4,SP0LSH 

,LONUM 

,HINU>< 

,ANS2 

tFPS,R0 

1040000 

LONUH,AC0 

HINUH,AC1 

ANS2,AC3 

•007400 

l.*6,<LPADR 



;ADDR OF INSTR BEING TESTED 
;SET IE BITS IN FORTRAN ANSWER 
;CLR FORTRAN FEC 
;CLR FORTRAN FEA 
;CLR FPU FPS BUFFER 
jClR FPU FEC BUFFER 
;CLR FPU FEA BUFFER 
;GET RANDOM INPUT DATA 

•ENTER POLISH MODE 

;PUSH 2 WORDS ON STACK (LONUM) 

;PUSH 2 WORDS ON STACK (HINUM) 

; ADDRESS OF FORTRAN ADD 

[POP 2 WORDS AND EXIT POLISH MODE 

JDIEPLAY FLOATING POINT STATUS 
JLOAD FPS, INTERRUPT DISABLE 
;LOAD AC0 WITH A RANDOM NUMBER 
•LOAD ACl WITH A RANDOM NUMBER 
;LOAD AC3 WITH THE SUM 
•TURN INTERRUPTS ON 
; RESET LOOP ADDRESS 



AC0,AC2 

ACl,AC2 

FPS 

FPS.trPS 

AFRRl 

AC2,ANS1 

1 

SFPS 
ATSTl 

FEC 

FECSFEC 

IS 

23 

FEA,tFEA 

ATSTl 

23 

AC2,AC3 



;LOAD AC0 INTO AC2 

;ADD ACl BJ AC2 

;STORE FLOATING POINT STATUS 

jCBECK FPS 

;BRANCH IF OK 

[SAVE FPU ANSWER 

•FPS ERROR 

;ERROR BIT SET ? 

SNO, DONT GET FEC/FEA 

[YES, CHECK STATUS 

;CHECK THE FLOATING EXCEPTION CODES 
SBRANCH IF OK 
;FEC IS WRONG 

[CHECK FLOATING PC 

[BRANCH IF OK 

[WRONG ADDRESS IN FEA 



CMPF 

CFCC 

BEO AENDl 

[COMPENSATE FOR FORTRAN INACCURACIES 

STF AC2,AMS1 [SAVE FPU ANSWER 

SUB H,ANS1+2 

SBC ANSI 



COMPARE FPU ANSWER TO FORTRAN ANSWER 
COPY FLOATING CONDITION CODES 
ANSWERS CHECK 



[DECREMENT FPU ANSWER 
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711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

134 

735 

736 

137 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

150 

151 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 



004064 
004070 
•04072 
•04074 
804100 



173737 002406 

170000 

001403 

174237 002406 

104005 
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MACYll /71IBB6J ^^^^^.jjj. jppj.^ ,^j, INTERRUPTS ON, ROUNDING MODE 

[CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 



•04102 005037 002362 



004106 
•04110 
004116 
•04124 
004130 
004134 
804140 
004144 
•04150 
004154 
004160 
804164 
•04170 
•04174 
004176 

804202 
(104206 
004212 
004216 
•04222 
•04226 
804232 



000004 
012737 
012737 
805037 
005037 
005037 
805037 
005037 
004737 
802426 
804437 
823510 
023510 
023566 
023S40 

013700 
170127 
) 12437 
172517 
172731 
170127 
812137 



004240 
004242 
•04244 
804250 
004256 
804260 
•04264 

•04266 
•04272 
•04274 

004300 
•04306 
•04310 



CMPF 


ANS1,aC3 


CFCC 




BEO 


AENDl 


STF 


AC2,ANS1 


ERROR 


5 



AENDl: CLR 



[CLR FPU FPS BUFFER 



004242 
007600 
002402 
002404 
002362 
802364 
002366 
023332 
002436 
023506 
002426 
002436 

002416 

002400 
040200 
002426 
002436 
002416 
007600 
004240 



002376 

002400 



• ••««««••••««• 
[•TEST 2 

TST2I SCOPE 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
JSR 
.WORD 
JSR 
SPUSH 
SPUSH 
SADD 
SPOPX 

MOV 

LDFPS 

LDD 

LDD 

LDD 

LDFPS 

MOV 



••»•»«»•»»•••••»•• 



[•..••••••••••••••••••••••••••••* 

EXERCISE ADDD, ALL INTERRUPTS ON, ROUNDING MODE 



002362 
002362 



172630 
172201 
170237 
823737 
801403 
174237 
104017 



805737 002400 

100014 

170337 002364 

823737 002364 

801401 

104027 



IARET7,EXPFEA 

1007600, SFPS 

SPEC 

SFFA 

FPS 

FEC 

FEA 

PC,RANDL4 

LONUM, HINUM 

P4,SP0LSH 

,LONU" 

, HINUM 

,ANS2 

SFPS,P0 

1040200 

LONUM, AC0 

HINUM, ACl 

ANS2,AC3 

1001600 

f .t6,SLPA0R 



LDD 

ADDD 

STFPS 

CMP 

BEQ 

STD 

ERROR 

TST 
BPL 
STST 

CMP 
BEO 
ERROR 



[ADDR OF INSIR BEING TESTED 
[SET IE BITS IN FORTRAN ANSWER 
[CLR FORTRAN FEC 
[CLR FORTRAN FEA 
[CLR FPU FPS BUFFER 
[CLR FPU FEC BUFFER 
[CLP FPU FEA BUFFER 
[GET RANDOM INPUT DATA 

JenTER POLISH MODE 

-PUSH 4 WORDS ON STACK [LONUM) 

[PUSH 4 WORDS ON STACK (HINUM) 

•ADDRESS OF FORTRAN ADD 

[POP 4 WORDS AND EXIT POLISH MODE 

[DISPLAY FLOATING POINT STATUS 
•LOAD FPS, INTERRUPT DISABLE AND FD 
•LOAD AC0 WITH A RANDOM NUMBER 
•LOAD ACl WITH A RANDOM NUMBER 
'[LOAD AC3 WITH THE SUM 
[TURN INTERRUPTS ON 
[RESET LOOP ADDRESS 



•04312 023137 002366 002404 IS: 



AC0,AC2 

AC1,AC2 

FPS 

FPS. SFPS 

AERR2 

AC2,ANS1 

17 

SFPS 

ATST2 
FEC 

FECSFEC 

IS 

27 

FEA.SFEA 



[LOAD AC0 INTO AC2 

[ADD ACl BY AC2 

[STORE FLOATING POINT STATUS 

[CHECK FPS 

[BRANCH IF OK 

(SAVE FPU ANSWER 

[FPS ERROR 

[ERROR BIT SET ? 

[NO, DONT GET FEC/FEA 

[YES, CHECK STATUS 

[CHECK THE FLOATING EXCEPTION CODES 
[BRANCH IF OK 
[FEC IS WRONG 

[CHECK FLOATING pC 
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767 
769 
769 
770 
771 
772 
773 
774 
775 
776 
777 
776 
779 
760 
7«1 
783 
783 
784 
795 
796 
797 
799 
799 
790 
791 
792 
793 
794 
795 
796 
797 
799 
799 

801 
802 
803 
804 
905 
806 
807 
80K 
909 
810 
811 
812 
813 
914 
815 
816 
817 
818 
819 
830 
831 
822 



t»«33e 

004132 

004334 
r04326 
004330 

•04332 
004336 
004344 

004350 
004354 
004360 
004364 
004366 
004 370 
004374 



»01401 
104037 

173702 

17 0000 
001422 

174337 
162737 
005637 
005637 
005637 
173737 
170000 
001403 
174237 
104006 



003406 



002413 

003410 
002406 
002406 



004376 I>05037 002363 



BEU 


STST2 


ERROR 


27 


ATST2! C"PD 


AC3,AC3 


CFCC 




BED 


AEND3 


(COMPENSATE FOR Fl 


STD 


AC3,ANS1 


SUB 


tl,ANSl«6 


SBC 


«'1S1»4 


SBC 


ANS1»3 


SBC 


ANSI 


expo 


ANS1,AC3 


CFCC 




BI^Q 


AEND3 


STD 


AC2f ANSI 


ERROR 


6 


AEN02! CLR 


FPS 



(BRANCH IF OK 

;URONG ADDRESS IN FEA 

[COMPARE FPU ANSWER 10 FORTRAN ANSWER 

;COP» FLOATING CONDITION CODES 

(ANSWERS CHECK 

INACCURACIES. 

(SAVE FPU ANSWER 

(DECREMENT FPU ANSWER 



(CHECK ANSWERS AGAIN 

(COPI FLOA'^ING CONDITION CODES 

(BRANCH IF OK 

(SAVE FPU ANSWER 

(FPU AND FORTRAN DISAGREE 

(CLR FPU FPS BUFFER 











((••••••••••••< 

(•TEST 3 


EXERCISE ADDF, 


OVERFLOW Alio UNDERFLOW IHTERRUPTS OFF, 1 


f«4403 


000004 






TST3: SCOPE 




t 


004404 


012737 


004536 


•03376 


MOV 


•ARET3,EXPFEA 


(AUDP OF mSTR BEING TESTED 


004413 


012737 


004400 


003408 


NOV 


>884400,<FPS 


(SET IE BltrS IN FORTRAN ANSWER 
(CLP FORTP*N FEC 


004420 


005037 


003403 




CLP 


SFEC 


004434 


005037 


003404 




CLR 


SFEA 


(CLS FORT(*N FEA 


004430 


005837 


802363 




CLR 


FPS 


(CLP FPU F IS BUFFER 


004434 


005H37 


883364 




CLR 


FCC 


(CLR FPU F C BUFFER 


004440 


085037 


882366 




CLR 


FFA 


(CLR FPU F A BUFFER 


004444 


094737 


033343 




JSR 


PC,RAHDL2 


(GET RANDO INPUT DATA 


004450 


082426 


003436 




.WORD 


LONUM.HINUH 


(ENTER POLISH MODE 

(PUSH 2 WO IDS OH STACK (LONUH) 


•04454 


984437 


023506 




JSR 


R4,SP0LSH 


004460 


033510 


002436 




$PUSH 


.LONUM 


004464 


B3351i 


003436 




tPUSH 


,HINUH 


(PUSH 2 WORDS ON STACK (HINUM) 


004470 


033566 






SADD 




(ADDRESS 0' FORTRAN ADD 


•04473 


023548 


002416 




tPOPX 


,ANS3 


(POP 3 WORPS AND EXIT POLISH MODE 


•04476 


013709 


083408 




HOV 


SFPS,R0 


(DISPLAY FLOATING POINT STATUS 


•04503 


170127 


040000 




LOFPS 


1040000 


(LOAD FPS,; INTERRUPT DISABLE 
(LOAD AC8 tilTH A RANDOM NUMBER 


•04506 


172437 


003436 




LDF 


LONUM,AC0 


004513 


173537 


082436 




LDF 


HINUM.ACl 


(LOAD ACl tllTH A RANDOM NUMBER 


•84516 


173737 


083416 




LDF 


ANS3.AC3 


(LOAD AC3 ITH THE SUM 


004532 


178127 


004408 




LDFPS 


1004488 


(TURN INTERRUPTS ON, EXCEPT OVERFLOW Al 


•04536 


013737 


004534 


081110 


HOV 


l.<6,SLPADR 


(RESET LOO ADDRESS 



•04534 
•04536 
•04548 
•04544 



173608 
173381 
170237 

023737 



882362 

883362 



LOF AC8,AC3 (LOAD AC8 INTO AC2 

ADDF AC1,AC3 (ADD ACl BY AC3 

STEPS FPS (STORE FLOATING POINT STATUS 

CMP FPS,SFPS (CHECK FPS 



FPU ADO/SUB/MUL/DIV RANDOM EXER MACYll 3711006) e4-MAY-77 19:18 PACE 19 

D0FPDB.P11 04-MAY.77 17(30 T3 EXFRCISE ADDF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, 

(BRANCH IF OK 
(SAVE FPU ANSWER 
(FPS ERROP 

(COMPARE FPU ANSWER TO FORTRAN ANSWER 
(COPY FLOATING CONDITION CODES 
(ANSWERS CHECK 
.H INACCURACIES. 

[SAVE FPU ANSWER 
(DECREMENT FPU ANSWER 

(CHECK ANSWERS AGAIN 

(COPY FLOATING CONDITION CODES 

(BRANCH IF OK 

(SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

(CLR FPU FPS BUFFER 



SEU 8830 
ROUNDING MODE 



933 


•04552 


•01483 




824 


•04554 


174237 


083406 


935 


004560 


104881 




936 








837 


084562 


173782 




938 


•04564 


178000 




939 


•04566 


001416 




930 








931 


•04578 


174337 


003486 


933 


•04574 


163737 


800001 002418 


833 


•04603 


•85637 


002406 


834 


•04606 


173737 


002406 


935 


•04612 


170000 




936 


•04614 


001403 




937 


•04616 


174237 


083406 


838 


•84632 


104805 




939 








848 


094624 


805837 


003363 


941 








943 








843 








844 








945 








946 








947 








949 


•84638 


•00004 




849 


•84633 


•12737 


004764 002376 


858 


•04648 


013737 


004600 003408 


851 


004646 


•05037 


002402 


852 


•04652 


095037 


003404 


853 


•04656 


•05837 


003363 


854 


•04663 


085037 


003364 


855 


•04666 


•85837 


002366 


856 


•04672 


084737 


023332 


957 


•04676 


•83436 


002436 


959 


•04703 


004 4 37 


033506 


959 


•04706 


•33518 


803436 


960 


•04712 


033518 


803436 


861 


•84716 


033566 




962 


•04738 


033540 


803416 


863 








864 


•04734 


013700 


003400 


865 


•04730 


178137 


048208 


866 


•04734 


173437 


083436 


867 


•04740 


173537 


003436 


968 


•04744 


173737 


083416 


869 


•04758 


170127 


004608 


878 


•04754 


012737 


004763 001110 


871 








873 








873 








974 


•84763 


173600 




875 


•04764 


173301 




976 


•04766 


170337 


•03363 


977 


•04772 


•33737 


083363 002408 


878 


••S000 


•01403 





BEO 


ATST3 


STF 


AC2,ANS1 


ERROR 


1 


CMpr 


AC2,AC3 


CFCC 




BEU 


AEND3 


(COMPENSATE FOR Fl 


STF 


AC2,ANSI 


SUB 


ll,ANSlt2 


SBC 


ANSI 


CMPF 


ANS1,>C3 


CFCC 




BEU 


AEND3 


STF 


AC2,A1S1 


ERROR 


5 



(•TEST 4 
()•••••••••••• 

TST4I SCOPE 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
JSR 
.WORD 
JSR 
SPUSH 
8PUSH 
SADD 
4P0PX 

MOV 

LDFPS 

LDD 

LDD 

LDD 

LDFPS 

MOV 



EXERCISE ADDD, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 



»ARET4,EXPFEA 

1884680, tFpS 

SFEC 

SFEA 

fPS 

FEC 

FEA 

PC,RANDL4 

LONUM, HINUM 

R4,SP0LSH 

,LONUM 

, HINUM 

,ANS3 

>FPS,R0 

4040300 

LONUM,AC0 

HINUM, ACl 

ANS2>AC3 

•884680 

<.»e,SLPADR 



(ADDR Ot INSTR BEING TESTED 

(SET IE BITS IN FORTRAN ANSWER 

(CLR FORTRAN FEC 

(CLR FORTRAN FEA 

[CLR FPU FPS BUFFER 

[CLR FPU FEC BUFFER 

(CLR FPU FEA BUFFER 

(GET RANDOM INPUT DATA 

[ENTER POLISH MODE 

(PUSH 4 WORDS ON STACK (LONUM) 

(PUSH 4 WORDS ON STACK (HINUM) 

(ADDRESS OF FORTRAN ADD 

(POP 4 WORDS ANO EXIT POLISH MODE 

(DISPLAY FLOATING POINT STATUS 

(LOAD FPS, INTERRUPT DISABLE AND FD 

[LOAD AC0 WITH A RANDOM NUMBER 

[LOAD ACl WITH A RANDOM NUMBER 

[LOAD AC3 WITH THE SUM 

[TURN INTERRUPTS ON, EXCEPT OVER AND UNDERFLOW 

[RESET LOOP ADDRESS 



LDD 

ADDD 

STFP5 

CHP 

BEO 



AC0,AC2 

AC1,AC3 

FPS 

FPS.trPS 

ATST4 



(LOAD AC8 INTO AC3 

[ADD ACl BY AC2 

(STORE FLOATING POINT STATUS 

[CHECK FPS 

(BRANCH IF OK 



FPU ADD/SUB/HUU/t/lV BANDO« EXEB »»C»11 27(l»e6) a4-MA»-77 1«!I8 PAGE 2«l „„..„,„- „Xr;S 

DOFPCB.Pll S4.«A<-77 17:38 14 EXLBCISE ADDD, OVEprLOW AND UNDERFLOW INTERRUPTS OFF, BOUNDING NODE 



879 
880 
881 
882 
883 
884 
885 
986 
887 
888 
889 
892 
891 
892 
89) 
894 
895 
896 
897 
898 
899 



*esei6 

•aseia 
■isei2 

»es0i6 

»05e22 

■ese30 

»t)5034 

»05U44 

B0Si)J2 
e»3SS4 
005060 



174237 
104017 

I737B2 
170000 
091422 

174237 
162737 
005637 
005637 
005637 
173737 
170000 
001403 
174237 
104006 



002406 

000001 002414 

002412 

002410 

002406 

002406 



005062 005037 002362 



STD 
EPPOB 



AC2,ANS1 

n 



;SAVE FPU ANSWER 
;FPS ERROR 



CMPD AC2,AC3 :COMPARE FPU ANSWER TO FORTRAN ANSwER 

CFCC iCOPY FLOATING CONDITION CODES 

BCQ AEND4 lANSWERS CHECK 

JCOBPENSAIE FOR FORTRAN INACCURACIES. 

;SAVe: FPU ANSWER 

jDECREMFNT FPU ANSWER 



;CHECK ANSWERS AGAIN 

;COPI FLOATING CONDITION CODES 

[BRANCH IF OK 

;SAVE FPU ANSWER 

;FPU AND FORTRAN DISAGREE 

(CLP FPU Fps BUFFER 



STP 


AC2.ANSI 


SUB 


tl,ANSl+6 


SBC 


ANSlt4 


SBC 


ANSl+2 


SBC 


ANSI 


CHPD 


ANS1.AC3 


CFCC 




BEQ 


AEND4 


STD 


AC2>ANSI 


ERROR 


6 


AENn4l CLB 


FPS 



901 
902 
90 3 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 





000004 






; |. ..»»•»». •••1 
(•TEST 5 


EXERCISE ADDF, 


ALL INTERRUPTS ON, TRUNCATE MODE 


005066 


;,>•>••• 

TST5I SCOPE 






005070 


012737 


005222 


002376 


MOV 


lAREI5,EXPrEA 


;ADDR OF INSIR BEING TESTED 


005076 


012737 


007440 


002400 


MOV 


«»07440,SFPS 


;SET IE BITS IN FORTRAN ANSWER 


005104 


005037 


0K2402 




CLR 


9FEC 


,CLR FORTRAN FEC 


005110 


005037 


002404 




CLR 


SFEA 


[CLR FORTRAN FEA 


005114 


005037 


002362 




CLR 


FPS 


(CLR FPU FPS BUFFER 


005120 


005037 


002364 




CLB 


FEC 


[CLB FPU FEC BUFFER 


005124 


005037 


002366 




CLR 


FEA 


[CLB FPU FEA BUFFER 


005130 


004737 


023342 




JSB 


PC,RANDL2 


[GET RANDOM INPUT DATA 


005134 


002426 


002436 




.WORD 


LONUM.HINUM 


[ 


005140 


004437 


023506 




JSR 


R4,SP0LSH 


[FNTEB POLISH MODE 


00S144 


023510 


002426 




SPUSH 


,LONU" 


[PUSH 2 UOBDS ON STACK (LONUHl 


005150 


ti23510 


002436 




SPUSH 


,HINUN 


[PUSH 2 WORDS ON STACK (HINUH) 


005154 


023566 






SADD 




[ADDRESS OF FORTRAN ADD 


005156 


023540 


002416 




SPOPX 


.ANS2 


[POP 2 WORDS AND EXIT POLISH MODE 


005162 


013700 


002400 




MOV 


SFPS.R0 


[DISPLAY FLOATING POINT STATUS 


005166 


170127 


040000 




LDFP8 


I04e0l>0 


[LOAD FPS, INTERRUPT DISABLE 


005172 


172437 


002426 




l.OF 


LONUM,AC0 


[LOAD ACe WITH A RANDOM NUMBER 


005176 


172537 


002436 




LDF 


HINUM.ACl 


[LOAD ACl WITH A RANDOM NUMBER 


005202 


172737 


002416 




LDF 


A»S2,AC3 


[LOAD AC3 WITH THE SUM 


005206 


170127 


007440 




LDFPS 


1007440 


[TURN INTERRUPTS ON 


005212 


012737 


005220 


001110 


MOV 


t.»6.5LPADR 


[RESET LOOP ADDRESS 



005220 172600 

005222 172201 

005224 170237 

005230 023737 



002362 
002362 00240 



LDF AC0,AC2 [LOAD AC0 INTO AC2 

ADDF AC1.AC2 [ADD ACl BY AC2 

STFPS FPS (STORE FLOATING POINT STATUS 

CMP FPS.SFPS (CHECK FPS 



FPU ADD/SUB/MUL/DIV RANDOM EXER MACYU 27(1006) 04-MAY-77 18:18 PAGE 21 
D0FPDB.P11 04-MAY-77 17:30 T5 EXERCISE ADDF, ALL INTERRUPTS ON, 



TRUNCATE MODE 



935 


005236 


00140) 




936 


0052 40 


174237 


002406 


937 


005244 


104001 




938 








939 


005246 


005737 


002400 


940 


005252 


100014 




941 


005254 


170337 


002364 


942 








943 


005260 


023737 


002364 002402 


944 


005266 


001401 




945 


005270 


104023 




946 








947 


005272 


023737 


002366 0B24B4 


948 


005300 


001401 




949 


095302 


104023 




950 








951 


005304 


173702 




952 


005306 


170000 




953 


005310 


001427 




954 








955 


005312 


174237 


B02406 


956 


005316 


0627 37 


0BB0B1 B02410 


957 


005324 


0055 37 


002406 


958 


005330 


173737 


002406 


959 


005334 


170000 




960 


005336 


001414 




961 


005340 


162737 


a0B0B2 002410 


962 


005 3 46 


005637 


B02406 


963 


005352 


173737 


002406 


964 


005356 


170000 




965 


005360 


001403 




966 


005362 


174237 


002406 


967 


005366 


101005 




969 








969 


005370 


005037 


fl«2)62 


970 








971 








972 








973 








974 








975 








976 








977 








979 


005 37 4 


000004 




979 


005376 


B12737 


005530 002376 


980 


005404 


012737 


007640 0B24B0 


981 


005412 


005037 


BB2402 


982 


005416 


005037 


002404 


983 


005422 


005037 


002362 


984 


005426 


005037 


B02364 


985 


005432 


005037 


002366 


986 


005 4 36 


004737 


023332 


987 


005442 


002426 


B02436 


98B 


005446 


004437 


B23S06 


989 


005452 


023510 


002426 


990 


005 456 


023510 


BB2436 



BEO 


AERP5 


STF 


AC2,ANS1 


ERROR 


1 


TST 


«FPS 


BPL 


ATST5 


STST 


FEC 


CMP 


FEC, SPEC 


BEO 


IS 


ERROR 


23 


CMP 


FEA, SFEA 


BEQ 


ATST5 


ERROR 


23 


CMPF 


AC2,AC3 


CFCC 




BEO 


AEND5 


[COMPENSATE FOR FORTRAN 


STF 


AC2,ANSI 


ADD 


I1,ANS1«2 


ADC 


ANSI 


CMPF 


ANS1,AC3 


CFCC 




BEQ 


AEND5 


SUB 


•2,AKS1*2 


SBC 


ANSI 


CMPF 


ANS1,AC3 


CFCC 




BEO 


AENn5 


STF 


AC2,AN5I 


EPBOR 


5 



[BRANCH IF OK 
[SAVE FPU ANSWER 
[FPS ERROR 

(ERROR BIT SET 7 

[HO, DONT GET FEC/FEA 

[YES, CHECK STATUS 

[CHECK THE FLOATING EXCEPTION CODES 
[BRANCH IF OK 
(FEC IS WRONG 

(CHECK FLOATING pC 

(BRANCH IF OK 

[WRONG ADDRESS IN FEA 

(COMPARE FpU ANSWER TO FORTRAN ANSWER 

(COPY FLOATING CONDITION CODES 

(ANSWERS CHECK 

INACCURACIES, 

(SAVE FPU ANSWER 

(INCREMENT FPU ANSWER 

[CHECK ANSWERS AGAIN 

(COPY FLOATING CONDITION CODES 

(BRANCH IF OK 

(DECREMENT FPU ANSWER 

(CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION CODES 

(BRANCH IF OK 

(SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

[CLR FPU FPS BUFFER 



EXERCISE ADDD, ALL INTERRUPTS ON, TRUNCATE MODE 



[ADDR OF INSTR BEING TESTED 
[SET IE BITS IN FORTRAN ANSWER 
[CLR FORTRAN FEC 
(CLR FORTRAN FEA 
(CLR FPU FPS BUFFER 
(CLB FPU FEC BUFFER 
[CLP FPU FEA BUFFEB 
[GET RANDOM INPUT DATA 

[ENTER POLISH MODE 

(PUSH 4 WORDS ON STACK (LONUM) 

[PUSH 4 WORDS ON STACK (HINUM) 



MOV 


IABET6,EXPFEA 


MOV 


1007640, SFPS 


CLR 


SFEC 


CLB 


SFEA 


CLR 


FPS 


CLR 


FEC 


CLB 


FEA 


JSB 


PC,RANDL4 


.WORD 


LONUM, HINUM 


JSR 


R4,SP0LSH 


SPUSH 


.LONUM 


SPUSH 


, HINUM 



FPU ADD/SUB/HUL/OIV RANDOM EXEB HSCYII 27(1886) 84-MAI-77 1B:18 PAGE 22 

DQFPDB.PIl a«."A»-77 17l3lJ 16 EXERCISE ADDU, ALL IHTEBRnpTS ON, TBUNCAIE HODE 

; ADDRESS OF FORTRAN ADD 

;POP 4 WORDS AND EXIT POLISH MODE 

;DISPLAI FLOATING POINT STATUS 
;LOAD FPS, INTERRUPT DISABLE AND FD 
fLOAD ACB WITH A RANDOH NUMBER 
[LOAD ACl WITH A RANDOM NUMBER 
ILOAD AC) WITH THE SUM 
;TURN INTERRUPTS ON 
;RESET LOOP ADDRESS 



991 


885462 


823566 




992 


885464 


823548 


882416 


993 








994 


885478 


813788 


802488 


995 


(85474 


178127 


840288 


996 


885588 


172437 


882426 


997 


885584 


172537 


082436 


999 


885518 


172737 


802416 


999 


885514 


178127 


887648 


lB0e 


885528 


812737 


885526 881118 


\eiii 








11)82 








188 3 








1884 


885526 


172698 




1885 


885538 


172281 




1886 


885532 


178237 


882362 


1887 


885536 


823737 


002362 B824BH 


1888 


885544 


881483 




1889 


885546 


174237 


882486 


1818 
1811 
1812 


885552 


184817 




885554 


885737 


802488 


1813 


885568 


188814 




1814 


885562 


178337 


802 364 


1815 








1816 


885566 


823737 


892364 882482 


1817 


•85574 


881481 




1818 


885576 


184827 




1819 








1828 


885688 


823737 


802366 882484 


1821 


885686 


881481 




1822 


885618 


184827 




1823 








1824 


885612 


173782 




1825 


•05614 


178888 




18!6 


885616 


881437 




1827 








1828 


•85628 


174237 


082486 


1829 


885624 


962737 


888081 882414 


1838 


885632 


885537 


002412 


1831 


•^5636 


885537 


082418 


1832 


•85642 


885537 


002486 


1833 


•85646 


173737 


002406 


1834 


885652 


178888 




1835 


•85654 


881429 




1836 


085656 


162737 


808882 882414 


1837 


085664 


895637 


002412 


1838 


885678 


895637 


082418 


1839 


885674 


895637 


832486 


1848 


885798 


173737 


882486 


1841 


885784 


178888 




1842 


885786 


891483 




1843 


•85710 


174237 


882486 


1844 


885714 


184886 




1845 








1846 


885716 


885937 


082362 



SADD 




5P0PX 


.ANS2 


MOV 


SFPS.RO 


LDFPE 


4048288 


LDD 


LONUM,AC0 


LDD 


HINUM.ACl 


LPD 


ANS2,AC3 


LDFPS 


•887649 


MOV 


l,*6,SLPADR 



LDD 


AC8,AC2 


ADDD 


AC1,AC2 


STEPS 


FPS 


CMP 


FPS.tFPS 


BFO 


AERR6 


5TD 


AC2,A"IS1 


ERROR 


17 


TST 


SFPS 


BPL 


ATST6 


STST 


FEC 


CMP 


FEC,«FEC 


BEO 


1$ 


ERROR 


27 


CMP 


FEA.tFEA 


BFO 


ATST6 


ERROR 


27 


CMPD 


AC2,AC3 


CFCC 




BEu 


AEND6 


jCOMptNSATE FOR FORTRAN 


STD 


AC2,AnSI 


ADD 


«1,ANS1^6 


ADC 


AN51»4 


ADC 


ANS143 


ADC 


ANSI 


CMPD 


ANS1,AC3 


CFCC 




bEQ 


AEND6 


SUB 


I2,AN.5146 


SBC 


ANSK'4 


SBC 


ANSH2 


SRC 


ANSI 


CMPD 


ANS1,AC3 


CFCC 




BEU 


AEND6 


STD 


AC2>ANS1 


ERROR 


6 



;LOAD AC8 INTO AC2 

;ADD ACl BX AC2 

JSTOBE FLOATING POINT STATUS 

jCHECK FPS 

;BRANCH IF OK 

;SAVE FPU ANSWER 

;FPS ERROR 

; ERROR BIT SET ? 

;N0. DONT GET FEC/FEA 

;YES, CHECK STATUS 

ICHECK THE FLOATING EXCEPTION CODES 
;BRANCH IF OK 
;FEC IS WRONG 

JCHECK FLOATING PC 

;BRANCH IF OK 

;WRONG ADDRESS IN FEA 

;C0MPARE FPU ANSWER TO FORTRAN ANSWER 

;COPY FLOATING CONDITION COOES 

(ANSWERS CHECK 

INACCURACIES, 

;SAVE FPU ANSWER 

; INCREMENT FPU ANSWER 



;CHECK ANSWERS AGAIN 

jCOPJ FLOATING CONDITION CODES 

;BRANCH IF OK 

iDECRFMENT FPU ANSWER 



;CHECK ANSWERS AGAIN 

;COPY FLOATING CONDITION CODES 

;BRANCH IF OK 

;SAVE FPU ANSWER 

;FPU AND FORTRAN DISAGREE 



AEND6: CLR 



:CLP FPU FPS BUFFER 



FPU ADD/SUB/MUL/DTW RANDOM EXER MACUll 27(1086) 84-MAy-77 19118 PAGE 23 

DOFPOB.PIl 04.MAT-77 17:30 T6 EXERCISE ADDD, ALL IHTEPRUPTS ON, TRUNCATE MODE 



1847 
















1848 
















1849 
















1850 
















1851 
















1852 
1053 


J'lEST 7 


EXERCISE ADDF, 


OVERFLOW AND UNDERFLOW INTERRUPTS OFF, 1 


1854 










,■)••••••••••••• 






1855 


885722 


889884 






TST7! SCOPE 






1056 


•95724 


012737 


086956 


882376 


MOV 


IABET7,EXPFEA 


;AOnR OF INSTR BEING TESTED 


1857 


•85732 


812737 


084448 


982489 


MOV 


1884440, SFP5 


;SET IE BITS IN FORTRAN ANSWER 


1858 


805710 


885837 


082482 




CLR 


SFfC 


:CLR FORTRAN FEC 


1059 


•85744 


895937 


802404 




CLR 


SFtA 


;CLR FORTRAN FEA 


1869 


•85758 


805837 


082362 




CLR 


IPS 


;CLR FPU FPS BUFFER 


1961 


885754 


985937 


882364 




CLR 


FEC 


;CLR FPU FEC BUFFER 


1962 


895768 


B95837 


882366 




CLR 


FEA 


:CLR FPU FEA BUFFER 


1863 


•95764 


894737 


023342 




JSR 


PC,RA»DL2 


[GET RANDOM INPUT DATA 


1864 


885778 


8824J6 


882436 




.WORD 


LONUM,HINOM 


' u„ ^ 


1965 


•05774 


884437 


02 3586 




JSR 


R4,$P0LSH 


;ENTER POLISH MODE 


1066 


896998 


823519 


002426 




SFUSH 


,L0NUM 


[PUSH 2 WORDS OH STACK (LONUM) 


1067 


806984 


823519 


0024 36 




SPUSH 


,HINUM 


[PUSH 2 WORDS ON STACK (HINUM) 


1868 


096910 


823566 






SADD 




[ADDRESS OF FORTRAN ADD 


1869 


896812 


023549 


002416 




SPOPX 


, ANS2 


[POP 2 WORDS AND EXIT POLISH MODE 


1878 
1871 


086816 


813789 


882480 




HOV 


SFPS.B9 


[DISPLAY FLOATING POINT STATUS 


1872 


W86822 


178127 


848900 




LDFPS 


1840000 


[LOAD FPS, INTERRUPT DISABLE 


1873 


•86826 


172437 


082426 




ldf 


LONUM,AC0 


[LOAD AC0 WITH A RANDOM NUMBER 


1874 


086832 


172537 


082436 




LDF 


HINUM.ACl 


[LOAD ACl WITH A RANDOM NUMBER 


1075 


806936 


172737 


882)16 




LDF 


ANS2,AC3 


(LOAD AC3 WITH THE SUM 


1076 


886042 


178127 


H04440 




LDFPS 


•804440 


[TURN INTERRUPTS ON, EXCEPT OVERFLOW Al 


1977 


896946 


812737 


096854 


881118 


MOV 


».«6,SLPA0R 


[RESET LOOP ADDRESS 


1978 
















1879 


>•••••■ 






1888 
















188 1 


096954 


172688 






LDF 


AC0,AC2 


[LOAD AC0 INTO AC2 


1982 


886856 


172281 






ARET7: ADDF 


ACI,AC2 


(ADD ACl BY AC2 


18B3 


896960 


178237 


082362 




STEPS 


FPS 


[STORE FLOATING POINT STATUS 


1884 


686864 


823737 


002362 


802400 


CMP 


FPS.SFPS 


(CHECK FPS 


1885 


•0607 2 


•81483 






BEO 


ATST7 


[BRANCH IF OK 


1886 


88687 4 


174237 


082486 




STF 


AC2,ANS1 


(SAVE FPU ANSWER 


1887 


•86188 


184081 






ERROR 


1 


(FPS ERROR 


1088 
1089 


•86182 


173702 






ATST7t CMPF 


AC2,AC) 


(COMPARE FPU ANSWER TO FORTRAN ANSWER 


1898 


896184 


178088 






CFCC 




(COPY FLOATING CONDITION CODES 


1891 


•86106 


881427 






DEO 


AEND7 


(ANSWERS CHECK 


1092 










(COMPENSATE FOR FORTRAN INACCURACIES. 


1893 


•86118 


174237 


892496 




STF 


AC2,ANS1 


[SAVE FPU ANSWER 


1894 


•86114 


062737 


808081 


002418 


ADD 


tl,ANSl«2 


(INCREMENT FPU ANSWER 


1895 


•86122 


•85537 


882486 




ADC 


ANSI 




1896 


886126 


173737 


•92 406 




CMPF 


ANS1,AC3 


[CHECK ANSWERS AGAIN 


1097 


•86132 


178880 






CFCC 




(COPY FLOATING CONDITION CODES 


1098 


•96134 


•81414 






BEQ 


AEND7 


[BRANCH IF OK 


1899 


896136 


162737 


888802 


002410 


SUB 


•2,ANSlt2 


(DECREMENT FPU ANSWER 


1199 


•86144 


885637 


082406 




SBC 


ANSI 




1181 


••6150 


173737 


002486 




CMPF 


ANS1,AC3 


(CHECK ANSWERS AGAIN 


1182 


•86154 


178808 






CFCC 




(COPY FLOATING CONDITION CODES 



Zi.^Zrrr,V.L:'irnnr "'"" "7"""' /A;TrlVl.olVllJi.?. lt,o un...r.o. i»t.>,«upts orr, t.unc.t. hod. 



lies 

1106 
1187 

Ilea 

11B9 

11 le 
nil 

1112 
1113 
1114 
1115 
1116 
1117 

iiie 

1119 

ii2e 

1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 

iiae 

1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 

use 

1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 



ee&156 
ee6i6e 

806164 



f)ei4e3 

174237 aB24e6 
I04««I5 



•06166 it05037 003362 



ae6172 
806174 
006202 
806210 
006214 
B06220 
006224 
006230 
0062 34 
096240 
006244 
006250 
•06254 
•06260 
•06262 

006266 
006272 
•06276 
006302 
S06306 
006312 
006316 



000004 
012737 
012737 
005037 
005037 
005037 
005037 
005037 
004737 
002426 
004437 
B2351i) 
023510 
023566 
023540 

013700 
170127 
172437 
172537 
172737 
170127 
012737 



•06324 
906326 
•06330 
006334 
006342 
0H6344 
006350 

B06352 
006354 
•06356 

•06360 
006364 
006372 
•06376 
•06402 
006406 



172600 
172201 
170237 
023737 
091403 
174237 
104017 

173702 
170000 
001437 

174237 
062737 
005537 
005537 
005537 
173737 



BEQ 

STF 
ERROB 

»END7! CLP 



;*IEST 10 



HEND7 , BRANCH IF OK 

»C2,»NS1 ;SAVE FPU ANSWER 

5 ;FPU AND FORTRAN DISAGREE 

fPS ;Cl,R FPU FPS BUFFER 



....•..••••••« „„...«...»..... 

EXERCISE AODD, OVErFLOU AND UNDErFLOii INTERRUPTS OFF, TRUNCATE MODE 



006326 
004640 
002402 
002404 
002362 
002364 
002366 
023332 
002436 
023506 
002426 
002436 

002416 

002400 
040200 
002426 
002436 
002416 
004640 
006324 



002362 
002362 



002376 
00240(1 



ISI101 SCOPE 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
JSR 
.WORD 
JSP 
SPUSH 
SPUSH 
SADD 
SPOPX 

MOV 

LDFPS 

LDD 

LDD 

LDD 

LDFPS 

MOV 



•ARET10,EXPFE» 

«004640.>FPS 

SPEC 

tFEA 

FPS 

FEC 

FEA 

PC,RANDL4 

LONUM.HINUM 

R4,SP0LSH 

,LONUM 

,HINUM 

,ANS2 

sFps.sa 

1040200 

1:ONUM.AC0 

HINUH.ACl 

ANS2<AC3 

•004640 

».t6.«LPADR 



[AUDR OF INSTR BEING TESTED 
[SET IE BITS IN FORTRAN ANSWER 
jCLR FORTRAN FEC 

;clr fortran fea 

;clp fpu fps buffer 

;clr fpu fec buffer 

;clr fpu fea buffer 

;cet random input data 

jenter polish mode 

;push 4 words on stack [lonuh) 

;push 4 words on stack (hinuh1 

gaddress of fortran add 

[pop 4 words and exit polish mode 

[display floating point status 

[load fps, interrupt disable and fd 

[1,0ad ac0 with a random number 

[load acl with a random number 

(load ac3 with the sum 

[turn interrupts on, except over and underflow 

Ireset loop address 



002406 
000001 
002412 
002410 
002406 
002406 



(•«♦.•»••••••••••••»•■"••"•""----------- 

LDD AC0,AC2 [LOAD ACB INTO AC2 

ARET10! ADDD AC1,AC2 [ADD ACl BY AC2 

STFPS FPS [STORE FLOATING POINT STATUS 

CMP FPS,SFPS [CHECK FPS 

BEQ ATST10 [BRANCH IF OK 

STD AC2,ANSI [SAVE FPU ANSWER 

ERROB 17 [FPS ERROR 

ATST10! CMPD AC2,AC3 [COMPARE FPU ANSWER TO FORTRAN ANSWER 

(•FCC [COPY FLOATING CONDITION COOES 

BEO AEKD151 [ANSWERS CHECK 
(COMPENSATE FOR FORTRAN INACCURACIES. 

STD AC2,AnS1 [SAVE FPU ANSWER 

ADD lll,ANSlt6 [INCREMENT FPU ANSWER 

AOC ANSlt4 

ADC A»Slt2 

ADC ANSI 

C"PD ANSI, ACT [CHECK ANSWERS AGAIN 



SEQ 0026 
FPU ADD/5UB/MUL/DIV RANDOM EXER MACY11 'JJ""*' rvf ^cISe'IddS" ' SSfrFLoS Hd UNDERFLOW INTERRUPTS OFF, TRUNCATE MODE 
DQFPDB.Pll 04-MAY-77 17:30 »iw cac l^v 



1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 



•06412 
006414 
•06416 
006424 
•06430 
•06434 
•06440 
006444 
•06446 
006450 
•06454 



170000 
001420 
162737 
095637 
005637 
095637 
173737 
170000 
B01403 
174237 
104006 



000002 
002412 
002410 
002406 
002406 



002406 



002414 



•J64S6 005037 002362 



CFCC 

BEU 

SUB 

SBC 

SBC 

SBC 

CMPD 

CFCC 

BEO 

STD 

ERROR 

AEND10: CLR 



AEND10 

I2,ANS1«6 

ANS1»4 

ANS1»2 

ANSI 

ANS1,AC3 

AEND10 
AC2,AHS1 



[COPY FLOATING CONDITION CODES 
[BRANCH IF OK 
[DECREMENT FPU ANSWER 



[chech answers again 

[copy floating condition codes 

,'branch if ok 

[save fpu answer 

•fpu and fortran disagree 



[CLR FPU FPS BUFFER 



z"r.iz^?'''r^\hi)?ruir """ 'i\r" .iiicVsi'WrViiv "«.pu„s oh, ,o..o... .0.. 



Wll lixEST U EXERCISE SUBF, ALL INTEBBUPTS ON, ROUHDING^MODE^ 

lii SH; Eli s:;; su: '""" l"lpi::?liiiiS™L. 

1,79 »8650i. Bi.5a37 092482 CLR .FEC CLR fORTRAN FEC 

nee «.a65l,4 B«B37 B«24B4 CLR JFEA CLR f""?*" ^" 

!iij s^tn^ ss^s^? s^^^tJ ; ^ 

wii vAwi ivAi] iiiwi - -%*-" ;=" ^Rr^o^^\s^^j^^A.A 

till t^ i^ t^ 3£; \x:^' \^^^ r^.ACK .0.. 

1187 ea654« »23510 002426 »PUSH ,LONU» PUSH 2 R | (HINUH) 

1,88 806544 023510 002436 «PUSH ,HIRU- I^^opp^ OF FORTRAN SUBTRACT 

Wll mil", ll\l\l ...... !loP, .ANS2 pSp 2 -ORDS AND LXIT POLISH MODE 



002416 »POPX ,ANS2 JPOP 2 



IJoi .Bfc^Sf, B137BB 002400 KOV «FpS.R0 jDISPLAJ FLOATING POINT STATUS 

« ITtlll Villi! IVmZ LDFPS .0i00»0 ;LOAD FPS, INTERRUPT DISABLE 

Ml litlll T?437 002426 LOf LONUH,AC0 ILOAD AC0 V.ITH A RANDOM NUHBLR 

« Htllt 7253? ^02436 toF HINUM ACl ,LOA0 ACl «ITH A RANDOM NUMBER 

Wll So" 6 1' ",? tllWt LDF .«S2,AC, :LOAD *" " J;J,J"^,»"" 

Hot ajAlla? nal37 BH7400 LDFPS 1007400 ;TURN INTEBBUPTS UN 

" J^!!S? V.VAl ttl:,, »»,,,a MOV •..6,$LPADR ;RESET LOOP ADDRESS 



rsTiu SCOPE 




MOV 


lARETIl.EXPFEA 


HOV 


«0a74a0.SFps 


CLR 


«FEC 


CLR 


SFEA 


CLR 


IPS 


CLR 


FEC 


CLR 


FEA 


JSH 


PC,RAN0L2 


.riORD 


LONUM.HINUM 


JSR 


R4.SPaLSH 


«PUSH 


.LONUX 


SPUSH 


,HI»U" 


<SUB 




SPOPX 


,ANS2 


MOV 


«FPS.R0 


LDFPS 


(040000 


LDF 


LONUMf AC0 


LDF 


HIKUH.ACl 


LDF 


ANS2.AC3 


LDFPS 


•007400 


MOV 


•,«6.$LPADR 


LDF 


AC0,AC2 


ARtTll! SUBF 


AC1,AC2 


STFPS 


FPS 


CMP 


FPS,«FPS 


BCO 


AERRll 


STF 


AC2.ANS1 


ERROR 


2 


AERRU! TST 


SFPS 


BPL 


ATSTll 


STST 


FEC 


CMP 


FEC.SFEC 


HEO 


IS 


ERROR 


24 


is: CMP 


FEA, SFEA 


BEO 


ATSTll 


ERROR 


24 


ATST11! CMPF 


AC2,AC3 


CFCC 




BEO 


AENDlt 



1198 006606 012737 006614 

1199 

1200 

Wll .06614 172600 LDF AC0,AC2 ;LOAD AC0 INTO AC2 

iS SS vB 002362 -- f^s ^2. ^^^-^' -- 

S? imW ??Ul7 002406 STF ^ AC2.ANS. irprERROp'""" 

1208 006640 104002 ERROR 2 jFPS ERROR 

iil; z:^ rsi^n '-'''' '"""' ir. f^p.i irSSsr" 

1212 006650 170337 002364 STST (EC jVtS, CHECK STATUS 

I2IJ 006654 023737 002364 0<.2402 C»P FEC,SFEC ;CHECK THE FLOATING EXCEPTION CODES 

1215 006662 001401 BEO 15 '.^T^s IL/g 

1216 006664 104024 ERROR 24 ;FtC IS WRONG 

W\l 006666 023737 002366 002404 IS: CMP FEA,SFEA -•"?" ™"r= ""^ 

1719 n06674 001401 BEQ ATSTll , BRANCH IF OK 

W2I Ittllt 'llll* ERROR 24 , WRONG ADDRESS IN FEA 

''?i .„^,«. .T..>.o 1T5T11- CMPF AC2.AC3 ICOHPARE FPU ANSWER TO FORTRAN ANSKEB 

223 SSr7S2 7O0S0 """• C?CC ' COP. FLOATING CONDITION CODES 
Wll llVllt allill BEO AENDll , ANSWERS CHECK 

224 e06704 001416 , COMPENSATE FOR FORTRAN INACCURACIES. 
\iil .«67as 174237 002406 STF AC2,ANS1 ;SAVE FPU ANSWER 
'1227 ;06n2 162737 0000" 0024,0 SUB ..,ANS10 .-DECREMENT FPU ANSWER 
1229 006720 005637 002406 SBC ANSI 

ii'.z%rrr^ii.i'.r,v.r "'"" "ir"' E^^Bci^rLB^riLL ^j?er^',pts on, rounding mode 

,229 00672, 173737 002406 CMPF ANS,,.C3 i^^^A^fJ^- c'o"«TION CODES 

1^3? JS6"2 ; M0 Bf'o' AEND11 IbraJcH IF OK 

B Sil i!i^li -"- E^^oR ;""- i^^r= disagree 

I235 006742 005037 002362 AENDUI CLB FPS :CLR FPU FPS BUFFER 

,236 

1237 

1238 

|2JJ |in;ST**2""*"**EXERCISE SUBD, ALL INTERRUPTS ON, ROUNDING "ODE^^ 

iiii Eii: vE ::!!:; si:: '^"W"'^^''^i^'^-"' 

1246 006764 B«S«37 002402 CLR SFEC CLR fORJJJJ ^ 

1247 006770 005037 002404 CLR SFEA jCLR FORTRAN FEA 

in? ltV.ll rAtV. mill ^ CLR FPU FEC BUFFER 

\v.: v^ v^ iiww v^^ -siJuM i^" ^^^'^ ""' 

1252 007014 002426 002436 .WORD ^ONUM.HINUH , 

.253 007020 004437 023506 JSR "'J^^ PUSH 4 SoMS ON STACK (LONUM, 

1254 007024 023510 002426 SPUSH ,LONUJ PUSH 4 WOR B („inuM) 

1255 00703. 023510 002436 SPUSH ,HINU" jKeSS oP ?ORTRAN SUBTRACT 
in? 007?" llllM 002416 SPO^X ,.NS2 IpoP 4 WORDS AND EXIT POLISH MODE 

ti ii]vd v.i\r. inz IV..S '.iifiZ i^jt^^^Js^-^s^^s^u^r^is^jtr^No f 

W" Zltll Wl"] :il\\l LUD ANS2,.C3 :iS*S fN^FS^uSTrON^"" 

1264 007066 .70.27 007600 ^^^^^^ LDFPS .007600^^^_^ llill.TollT.lLTs 



.»«•««•«•«••»•»•»••••••••••••••****••* 



1265 007072 

1266 

l^.f .••»»»•»»#»»•••••••»•••• 

Wll BO7100 172609 LDD AC0,AC2 iLOAD AC0 INTO AC2 

B SiH wk 002362 --' vin. ^z. '^^-^' """^ 

W]\ llVnl llWll """" ""'" bSo aerr r ;bSh"fok 

W]\ llVAl ?;«" 002.06 STD AC2,»NS, '^^'f ERROR*"'"" 

1275 007124 104020 ERROR 20 .FPS ERROR 

Wll 007,26 005737 002400 AEBR,2> TST SFPS JEBROR BIT SETT 



1278 »«7132 ,00014 BPL 



ftTSX12 ;N0, DONT GET FEC/FEA 



Wll IStIm VllVil 002364 iTST FEC :VES, CHECK STATUS 

Wll 007140 023737 002364 002402 CMP FECSFEC ,CHECK THE FLOATING EXCEPTION CODES 

1282 007146 001401 BEO 1$ ?e? IS JrONG 

1283 007150 ,04030 EKRO" " '^^^ '* """"^ 
1284 



FPU AD./.U6/-«l.,D.. .^N00« EX.R M«U. 27U»»S, ^^J^J^"' J„,J; = J^, "^E.RUPTS ON, ROUNDING MOD. 



OQFPDB.l 


>11 0' 


1.BAJ.77 


17130 


1785 


•a7I52 


023737 


002366 002404 


1266 


007160 


001401 




1287 


007162 


104030 




1288 








1289 


007164 


I7J702 




1298 


(07166 


I7000d 




1291 


007170 


001422 




1292 








129} 


007172 


174237 


002406 


1?9« 


007176 


162737 


000001 002414 


1295 


007204 


005637 


002412 


1296 


907210 


005637 


002410 


1297 


007214 


005637 


002406 


1298 


•07220 


173737 


002406 


1299 


■07224 


170000 




ijee 


007226 


001403 




1301 


007230 


174237 


002406 


1)02 


007234 


104010 




1303 








1304 


007236 


005037 


002362 


U0S 








1386 








1307 








1308 








1309 








1310 








1311 








1312 


007242 


000004 




1313 


007244 


012737 


007376 002376 


1314 


•07252 


012737 


004400 092400 


1315 


■07260 


005037 


002402 


1316 


•07264 


005037 


002404 


1317 


007270 


095037 


002362 


1318 


007274 


095037 


002364 


1319 


■07300 


005937 


002366 


1320 


•07304 


094737 


023342 


1321 


007310 


002426 


002436 


1322 


■07314 


004437 


923506 


1323 


•07320 


■23519 


002426 


1324 


007324 


023510 


0C2436 


1325 


•07330 


023562 




1326 


•07332 


023540 


002416 


1327 








1328 


■07 336 


013700 


092400 


1329 


•07342 


170127 


040000 


1330 


•07 346 


172437 


092426 


1331 


•07352 


172537 


002436 


13)2 


•07 356 


172737 


002416 


1333 


■07 362 


170127 


004490 


1334 


■07 366 


012737 


007374 001110 


13J5 








1336 








1337 








1338 


•07374 


172600 




1339 


007376 


173201 




1340 


•07400 


170237 


902362 



CMP (EA.SFEA 

BEIi; ATST12 

ERKOR 39 



;CHECK KLOATIMG PC 

;BRANCH IF OK 

;UROIIG ADDRESS IN FEA 



STD 


AC2,ANS1 


sue 


I1,ANS1»6 


SBC 


ANS1*4 


SBC 


ANSl+2 


SBC 


ANSI 


CHPD 


ANS1,AC3 


CFCC 




BEQ 


AEND12 


STD 


AC2,A«S1 


ERROR 


10 


AEND12! CtR 


FPS 



ATST12I CMPD AC2,AC3 jCOKPARE FPU ANSWER 10 FORTRAN ANSWER 

CFCC St^OPV FLOATING CONDITION CODES 

bEO AEND12 [ANSWERS CHECK 

SCOXPENSATE FOR FORTRAN INACCURACIES. 

--- jSAVE FPU ANSWER 

jDECREMENT FPU ANSWER 



;CHECK ANSWERS AGAIN 

,COPY FLOATING CONDITION CODES 

(BRANCH IF OK 

[SAVE FPU ANSWER 

•FPU AND FORTRAN DISAGREE 

;CLB FPU FPS BUFFER 



llVzsr'l eIerc^se sIbf, overflow and underflow JJ^erbupts^off, rounding mode 

jADDR of IHSTR BEING TESTED 

(SET IE BITS IN FORTRAN ANSWER 

[CLR FORTRAN FEC 

;CLR FORTRAN FEA 

jCLR FPU FPS BUFFER 

J CLP FPU FEC BUFFER 

(CLR FPU FEA BUFFER 

(GET RANDOM INPUT DATA 

JeNIER POLISH MODE 
(PUSH 2 WORDS ON STACK (LONUM) 
(PUSH 2 WORDS ON STACK (HINUH) 
(ADDRESS OF FORTRAN SUBTRACT 
(POP 2 WORDS AND EXIT POLISH MODE 

(DISPLAY FLOATING POINT STATUS 

(LOAD FPS. INTERRUPT DISABLE 

(LOAD ACe WITH A RANDOM NUMBER 

(LOAD ACl WITH A RANDOM NUMBER 

(LOAD ACS WITH THE SUM 

JtUPN INTERRUPTS ON, EXCEPT OVERFLOW AND UNDERFLOW 

(RESET LOOP ADDRESS 



SCOPE 




MOV 


IARET13,EXPFEA 


MOV 


t904400r8FPS 


CLR 


SFEC 


CLR 


6FEA 


CLR 


FPS 


CLR 


FEC 


CLR 


FEA 


JSR 


PC,RANDL2 


.WORD 


LONUM, HINUM 


JSR 


R4,SP0LSH 


SPUSH 


, LONUM 


SPUSH 


,HINUM 


SSUB 




SPOPX 


,ANS2 


MOV 


6FPS,R0 


LDFPS 


<940900 


LDF 


LONUM, AC0 


LDF 


HINUH, ACl 


LDF 


ANS2.AC3 


LDFPS 


I004400 


MOV 


•.♦6,«LPADR 



LDF AC0,AC2 
SUbF AC1,AC2 
STFPS fPS 



[LOAD ACB INTO AC2 

(SUBTRACT ACl BY AC2 

(STORE FLOATING POINT STATUS 



FPU ADD/SUB/MUL/DIV RANDOM FXER "ACYll JJO"") "'-""e'sUBf" OVERFLOW AND UNDERFLOW INTERRUPTS OFF, BOUNDING MODE 
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1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

136^ 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

H79 

1380 

1381 

138 2 

13B3 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 



■07404 023737 

■07412 091493 

•07414 174237 

■97429 104002 



002362 002400 
002406 



•97 422 
•07424 
•97426 

007439 
•07434 
■07442 
■07 446 
•07452 
■07454 
•07456 
007462 



173702 
170009 
091416 

174237 
162737 
005637 
173737 
170000 
091403 
174237 
104907 



097464 995937 



0974711 
097472 
•97500 
•07506 
•97512 
097516 
097522 
•07526 
•97532 
007536 
007542 
997546 
007552 
007556 
097569 

097S64 
007579 
007574 
•07600 
•07604 
007619 
•97614 



CHP FPS.SFPS 

BEO ATST13 

STF AC2,ANSI 

ERROR 2 

CMPF AC2,AC3 

CFCC 

BEQ AEND13 

(COMPENSATE FOR FORTRAN 



092496 

000001 092419 

002406 

992406 



992496 
092362 



•90004 
012737 
012737 
005037 
005037 
995037 
•05037 
095037 
094737 
002426 
004437 
023510 
023519 
B23562 
923540 

913700 
170127 
172437 
172537 
172737 
170127 
012737 



STF 


AC2#AnS1 


SUB 


»l,ANSl»2 


SBC 


ANSI 


CMPF 


ANSI, AC 3 


CFCC 




BEQ 


AEND13 


STF 


AC2,ANS1 


ERROR 


7 


3! CLR 


FPS 



(check fps 
(branch if ok 
(save fpu answer 
(fps error 

•compare fpu answer to fortran answer 

(copy floating condition codes 

[answers check 

inaccuracies. 

(save fpu answer 

(decrement fpu answer 

(check answers again 

(copy floating condition codes 

Ibranch if ok 

(save fpu answer 

(fpu amd fortran disagree 

[clp fpu fps buffer 



007624 092376 

994699 092499 

002402 

002404 

002362 

992364 

002366 

023332 

002436 

923506 

002426 

992436 

002416 

092400 
949299 
992426 
002436 
002416 
004600 
997622 0011ie 



((•••••••»••••• 

(»TEST 14 

( (•••»»•»»»»••• 

TSI14! SCOPE 

MOV 

MOV 

CLR 

CLR 

CLR 

CLR 

CLR 

JSR 
.WORD 

JSR 

SPUSH 

SPUSH 

SSUB 

SPOPX 

MOV 

LDFPS 

LDD 

LDD 

LDD 

LDFPS 

MOV 



EXERCISE SUBD, 

tARFT14.EXpFEA 

•004600>SEPS 

SFEC 

tFEA 

(PS 

FEC 

FEA 

PC,RANDL4 

LONUM, HIHUM 

R4r9P0LSH 

, LONUM 

,HINUM 

,ANS2 

SFPS,R9 

4040299 

LONUM, AC0 

HINUM,AC1 

ANS2,AC3 

1004690 

*.t6f SLPADR 



'wrFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 



■»»»»»»•»•♦•••»•»•***•••••******•** 

(ADDR OF INSTR BEING TESTED 
(SET IE BITS IN FORTRAN ANSWER 
|CLB FORTRAN FEC 
[CLR FORTRAN FEA 
(CLR FPU FPS BUFFER 
(CLR FPU FEC BUFFER 
(CLR FPU FEA BUFFER 
(GET RANDOM INPUT DATA 

S ENTER POLISH MODE 

^PUSH 4 WORDS ON STACK CLONUM) 

^PUSH 4 WORDS ON STACK (HINUM) 

IaDDRESS of FORTRAN SUBTRACT 

(POP 4 WORDS AND EXIT POLISH MODE 

(DISPLAY FLOATING pOIHT STATUS 
•LOAD FPS, INTERRUPT DISABLE AND FD 
JlOAD AC0 WITH A RANDOM NUMBER 
•LOAD ACl WITH A RANDOM NUMBER 

I^SrS \ll.l]Z.rir..C..T OVER AND UNDERFLOW 
[BESET LOOP ADDRESS 



■97622 172600 

•07624 173201 

•97626 170237 

•07632 023737 



002362 
092362 



(••••• 

LOD 

SUBD 

STFPS 

CMP 



AC0,AC2 
ACt,AC2 
FPS 
FPS,«FPS 



(LOAD AC0 INTO AC 2 
(SUBTRACT ACl BY AC2 
[STORE FLOATING POINT STATUS 
(CHECK FPS 
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1397 

1398 

1399 

14ee 

1401 

1402 

1403 

1404 

140 J 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

142S 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

I43J 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 



•07640 
007642 
007646 

007650 
007652 
007654 

007656 
007662 
007670 
007674 
907700 
007704 
•07710 
007712 
007714 
•07720 



•01403 
174237 
104020 

173702 
170000 
001422 

174237 
162737 
005637 
005637 
0K5637 
173737 
170000 
001403 
174237 
104010 



002406 
000001 
002412 
002410 
002406 
002406 



•07722 005037 002362 



007726 
907730 
•077 36 
007744 
•07750 
•07754 
•07760 
•07764 
•07770 
007774 
•10000 
010004 
•10010 
•10014 
910016 

010022 
■10026 
•10032 
•10036 
•10042 
910046 
010052 



900004 
912737 
012737 
005037 
905037 
•05037 
805037 
005037 
•047 37 
902426 
•04437 
923510 
023510 
023562 
023540 

013790 
170127 
172437 
172537 
172737 
170127 
012737 



010062 
007440 
002402 
002404 
002362 
002364 
002366 
023342 
002436 
023506 
002426 
002436 

002416 



BEQ 


ATST14 


STD 


AC2,A»S1 


ERROR 


20 


ATST14: CMPD 


AC2,AC3 


crcc 




BED 


AtND14 


|CO«PENS*TE FOB F 


STD 


AC2>ANS1 


SUB 


ll,ANSl-t6 


SBC 


ANSlt4 


SBC 


ANS142 


SBC 


ANSI 


CMPD 


ANSl.ACI 


CFCC 




BEQ 


AENDU 


STD 


AC2.AN6I 


ERROR 


10 


AEND14: CI.R 


FPS 



JBRANCH IF OK 
;SAVE FPU ANSWER 
;FPS ERROR 

;C0MPABE FPU ANSHEK TO FORTRAN ANSWER 

;COPY FLOATING CONDITION CODES 

.-ANSWERS CHECK 

INACCURACIES, 

;SAVE FPU ANSWER 

iDECREMENT FPU ANSWER 



;CHECK ANSWERS AGAIN 

iCOPY FLOATING CONDITION CODES 

;BRANCH IF OK 

;SAVE FPU ANSWER 

;FPU AND FORTRAN DISAGREE 

;CLP FPU FPS BUFFER 



EXERCISE SUBF, ALL INTERRUPTS ON, TRUNCATE MODE 



002376 
002400 



002426 
002436 
002416 
007440 
010060 



SCOPE 

MOV 

MOV 

CLR 

CLR 

CLR 

CLR 

CLR 

JSR 

.WORD 

JSR 

SPUSH 

SPUSH 

SSUB 

SPOPX 

MOV 

LDFPS 

LOF 

LDF 

LDF 

LDFPS 

MOV 



IARET15.EXPFF.A 

1007440, SFPS 

SFEC 

SFEA 

FPS 

FEC 

FEA 

PCRANDLJ 

LONUM.HINUM 

R4,SP0LSH 

,LONUM 

,HINUM 

,ANS2 

SFpS,R0 

1040000 

LONUM,AC0 

HINUM.ACl 

ANS2,AC3 

1007440 

t .«e,sLPADR 



[ADDS OF INSIH BEING TtSIED 
;SET IE BITS IN FORTRAN ANSWER 
jCLR FORTRAN FEC 
;CLR FORTRAN FEA 
;CLR FPU FPS BUFFER 
;CLR FPU FEC BUFFER 
jCLR FPU FEA BUFFER 
[GET RANDOM INPUT DATA 

IenTER polish MODE 
;PUSH 2 WORDS ON STACK ILONUM] 
JPUSH 2 WORDS ON STACK (HINUM) 
;ADDRESS OF FORTRAN SUBTRACT 
;POP 2 WORDS AND EXIT-t>OLISH MODE 

:DISPLAt FLOATING POiJt STATUS 
;LOAD FPS, interrupt fclSABLE 
;L0AD ACb with A RANDOM NUMBER 
;LOAD ACl WITH A RANECftI NUMBER 
[LOAD AC3 WITH THE SUM 
jTURN INTERRUPTS Oil 
.•RESET LOOP ADDRESS 



010060 
•10062 
•10064 



172600 
173201 
179237 002362 



LDF 
ARET15: SUBF 
STFPS 



AC0,AC2 
AC1,AC2 
FPS 



;LOAD AC0 INTO AC2 

JSUBTRACT ACl BY ACi 

;SIORE FLOATING POInT STATUS 



FPU ADD/SUB/MUL/DIV RANDOM EXER MACTU 27(1006) 04-HAI-77 1P:1B " = !; Jl ^onMr.Tt »nnF 

T15 EXERCISE SURF, ALL INTERRUPTS ON, TRUNCATE MODE 



DOFPDB.PIl 



1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

146 3 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

148* 

1485 

1486 

1497 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

149S 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 



•10070 
•10076 
910100 
910104 

010106 
010112 
•10111 

010120 
010126 
910130 

010132 
910140 
•10142 

010144 
010146 
•10150 

010152 
910156 
010164 
(•10170 
010174 
010176 
•10200 
•10206 
•10212 
910216 
•10220 
010222 
010226 



04.MAY-7; 17:30 

923737 002362 002400 

991403 

174237 002406 

104002 



CMP FPS,SFPS 

bEO AEPRIS 

STF AC2.ANS1 

ERROR 2 



005737 
100014 
170337 

•23737 
091401 
104024 

023737 
901401 
104024 

173702 
170000 
001427 

174237 
962737 
005537 
173737 
170P0a 
901414 
162737 
005637 
173737 
170000 
901403 
174237 
104007 



002400 AER 

002364 

002364 002402 

002366 002404 is: 



TST 
BPL 
STST 

CMP 
BEU 
ERROR 

CMP 
bECJ 
ERROR 



SFPS 
ATSTIS 

FEC 

FEC, SFEC 

IS 

24 

FEA, SFEA 

ATSTI5 

24 



[CHECK FPS 
[BRANCH IF OK 
;SAVE FPU ANSWER 
;FPS ERROR 

[ERROR BIT SET ? 

[NO, DONT GET FEC/FEA 

[YES, CHECK STATUS 

[CHECK THE FLOATING EXCEPTION CODES 
[BRANCH IF OK 
[FEC IS WRONG 

[CHECK FLOATING PC 

[BRANCH IF OK 

[WRONG ADDRESS IN FEA 



002406 
000001 
002406 
002406 



000002 
002406 
902 406 



010230 095037 002362 



•10234 

•10236 
910244 
910252 
•10256 
•10262 
•10266 
010272 
•10276 
•10302 
•10306 
•10312 
•10316 



900004 
012737 
012737 
005037 
005037 
•05037 
•95037 
005037 
004737 
902426 
904437 
023510 
923510 



010370 
007640 
902402 
002404 
002363 
002364 
002366 
023332 
002436 
023506 
002426 
002436 



ATST15' C«PF AC2.AC3 [COMPARE FPU ANSWER TO FORTRAN ANSWER 

jf(.(- [COPY FLOATING CONDIIIUN CODES 

BEO AFNni5 [ANSWERS CHECK 

[COMPENSATE FOR FORTRAN INACCURACIES. 



STF 

ADD 

ADC 

CMPF 

CFCC 

BEO 

SUB 

SBC 

CMPF 

CFCC 

FIFO 

STF 

ERROR 

AEND151 CLR 



AC2,ANS1 
»l,ANSl«2 
ANSI 
ANS1,AC3 

AEND15 
«2,AHS1»2 
ANSI 
ANS1,AC3 

AF.ND15 
AC2,ANS1 



(SAVE FPU ANSWER 
[INCREMENT FPU ANSWER 

[CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION COOES 

[BRANCH IF OK 

[DECREMENT FPU ANSWER 

[CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION COOES 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

jCLR FPU FPS BUFfER 



EXERCISE SU8D, ALL INTERRUPTS ON, TRUNCATE MODE 



[•TEST 
[)•••• 

TST16: 



16 



002376 

00240>t 



SCOPE 

MOV 

MOV 

CLR 

CLR 

CLR 

CLR 

CLR 

JSR 

.WORD 

JSR 

tPUSH 

SPUSH 



•ARET16,EXPFEA [ADDB OF INSTR BEING TESTED 

4097640, SFPS [SET IE BITS IN FORTRAN ANSWER 

$FEC (CLR FORTRAN FEC 

SFEA (CLR FORTRAN FEA 

EPS (CLR FPU FPS BUFFER 

EEC ;CIR FPU FEC BUFFER 

fEA [CLR FPU FEA BUFFER 

PC,RANDL4 (GET RANDOM INPUT DATA 

LONUM, HINUM [ 

R4,«P0LSH (ENTER POLISH MODE 

, LONUM (PUSH 4 WORDS ON STACK (LONUM) 

HINUM [PUSH 4 WORDS ON STACK (HINUH) 



FPU ADD/SUB/HUl/DIV RXHOOH EXER M»CY11 27(1086) e4-MAY-77 18I1B P»GE 32 
DOFPOB.PM B4-HAJ.77 17|3B T16 EXERCISE 5UBD, H.L IHTERRUPTS ON, 



TRUNCATE MODE 



1509 


•10322 


•23562 






ISUB 




(ADDRESS OF FORTRAN SUBTRACT 


IJIB 


(10324 


•23540 


002416 




• POPX 


,ANS2 


(POP 4 HORDS AND EXIT POLISH MODE 


1511 
1512 


•10330 


013700 


•02400 




MOV 


»FPS,R0 


(DISPLAY FLOATING POINT STATUS 


isn 


•10334 


170127 


040200 




LDFPS 


•040200 


(LOAD FPS, INTERRUPT DISABLE AND FD 


1514 


•10340 


172437 


002426 




LDD 


LONUM,AC0 


(LOAD AC0 UITH A RANDOM NUMBER 


1515 


•10344 


172537 


002436 




LDD 


HINUM.ACl 


(LOAD ACl WITH A RANDOM NUMBER 


1516 


•10350 


172737 


002416 




LDD 


ANS3,AC3 


(LOAD AC3 WITH THE SUM 


1517 


•10394 


170127 


007640 




tOFPS 


1007640 


(TURN INTERRUPTS ON 


1518 


•10360 


012737 


010366 


001110 


KOV 


l,»6,>LPADR 


(RESET LOOP ADDRESS 


1519 
















1S2B 


|«««tt«4 






1521 
152] 


•10366 


172600 






LDD 


AC0,AC3 


(LOAD AC0 INTO AC2 


1523 


•10370 


173201 






ARET16I SUBD 


AC1.AC2 


[SUBTRACT ACl BY AC3 


1924 


•10372 


170237 


•02362 




5TFPS 


FPS 


(STORE FLOATING POINT STATUS 


1529 


•10376 


•23737 


002363 


002400 


CMP 


FPS><FPS 


(CHECK FPS 


1526 


•10404 


•01403 






BEO 


AEBR16 


(BRANCH IF OK 


1927 


•10406 


174237 


002406 




STD 


AC3.ANS1 


(SAVE FPU ANSWER 


1528 


•10412 


104020 






ERROR 


30 


[FPS ERROR 


1929 
















1530 


•10414 


•05737 


002400 




AERRt6t TST 


»FPS 


(ERROR BIT SET ? 


1931 


•10420 


100014 






BPL 


ATST16 


(NO, DOHT GET FEC/FEA 


1532 


•10422 


170337 


002364 




STST 


FEC 


(YES, CHECK STATUS 


1533 
1534 


•10426 


•23737 


002364 


002402 


CMP 


FEC,»FEC 


[CHECK THE FLOATING EXCEPTION COOES 


1535 


•10434 


•01401 






BEQ 


It 


(BRANCH IF OK 


1536 


•10436 


104030 






ERROR 


30 


(FEC IS WRONG 


1537 
1539 


•10440 


•23737 


002366 


003404 


1(1 CMP 


FEA.tFEA 


(CHECK FLOATING PC 


1539 


•10446 


001401 






BEO 


ATST16 


(BRANCH IF OK 


1540 


•10450 


104030 






ERROR 


30 


(WRONG ADDRESS IN FEA 


1541 
1542 


•10452 


173702 






»T5T16I CMPD 


AC2,AC3 


(COMPARE FPU ANSWER TO FORTRAN ANSWER 


1543 


•10454 


170000 






CFCC 




(COPY FLOATING CONDITION CODES 


1544 


•10456 


•01437 






BEO 


AENDie 


(ANSWERS CHECK 


1945 










(COMPENSATE FOR FORTRAN 


INACCURACIES, 


1546 


•10460 


174237 


003406 




5TD 


AC2.ANS1 


(SAVE FPU ANSWER 


1547 


•10464 


062737 


000001 


002414 


ADD 


•1,ANS1*6 


(INCREMENT FPU ANSWER 


1548 


•10472 


005937 


002412 




ADC 


ANS1«< 




1949 


•10476 


•09937 


002410 




ADC 


AN51»3 




1550 


•10502 


•09537 


002406 




ADC 


ANSI 




1951 


•10506 


173737 


002406 




CMPD 


ANSI, ACS 


(CHECK ANSWERS AGAIN 


1552 


•10512 


170000 






CFCC 




(COPY FLOATING CONDITION CODES 


1553 


•10514 


001 42^ 






BEQ 


AEND16 


(BRANCH IF OK 


1594 


•10516 


162737 


000002 


003414 


SUB 


•2,ANS1<6 


(DECREMENT FPU ANSWER 


1555 


•10524 


005637 


002412 




SBC 


ANS1*4 




1596 


•10530 


005637 


003410 




SBC 


AIISlt3 




1557 


•10534 


005637 


002406 




SBC 


ANSI 




1558 


•10540 


173737 


002406 




CMPD 


ANS1,AC3 


(CHECK ANSWERS AGAIN 


1599 


•1B544 


170000 






CFCC 




(COPY FLOATING CONDITION CODES 


1560 


•10946 


•01403 






BEO 


AEND16 


(BRANCH IF OK 


1561 


•10550 


174237 


002406 




5TD 


AC3,ANS1 


[SAVE FPU ANSWER 


1962 


•1B954 


104013 






ERROR 


10 


(FPU AND FORTRAN DISAGREE 


1563 
1564 


010556 


009037 


002362 




AEND16: CLR 


FPS 


(CLR FPU FPS BUFFER 



FPU ADD/SUB/NUL/OIV RANDOM EXER MACYU 27(1006) 04-MAY-77 I81IB PAGE 33 

D0FPDB.P11 04.MAY-77 17l30 116 EXERCISE SUBD, ALL INTERRUPTS ON, TRUNCATE MODE 



1565 
















1566 
















1567 
















1568 
















1569 

1570 


( («*«»»*«««*««i 

(•TEST 17 


EXERCISE SUBF, 1 


OVERFLOW AND UNDERFLOW INTERRUPTS OFF, 1 


1571 
1572 


010563 


000004 






T5T17I SCOPE 






1573 


•10564 


013737 


010716 


003376 


MOV 


•AREIt7,EXPFEA 


[ADDR OF INSIR BEING TESTED 


1574 


010572 


012737 


004440 


003 400 


MOV 


•004440, >FPS 


(SET IE BITS IN FORTRAN ANSWER 


1575 


010600 


005037 


003403 




CLR 


• FEC 


(CLR FORTRAN FEC 


1576 


010604 


005037 


002404 




CLR 


• FEA 


(CLR FORTRAN FEA 


1577 


B106I0 


005037 


003363 




CLR 


FPS 


(CLR FPU FPS BUFFER 


1578 


FI0614 


005037 


002364 




CLR 


FEC 


(CLR FPU FEC BUFFER 


1579 


010630 


005037 


003366 




CLR 


FEA 


(CLR FPU FEA BUFFER 


1580 


0)0624 


004737 


023342 




JSB 


PC,RANDL2 


(GET RANDOM INPUT DATA 


1581 


010630 


003436 


003436 




.WORD 


LONUM,HINUH 


( 


1582 


010634 


004437 


023506 




JSR 


K4,SP0LSH 


(ENTER POLISH MODE 


1583 


010640 


033510 


003436 




SPUSH 


,LONUM 


[PUSH 2 WORDS ON STACK (LONUH) 


1984 


010644 


033510 


003436 




• PUSH 


,HINUM 


(PUSH 2 WORDS ON STACK (HINUM) 


1585 


010650 


023963 






• SUB 




(ADDRESS OF FORTRAN SUBTRACT 


1586 
1587 
1588 


010692 


033540 


002416 




tPOPX 


,ANS3 


(POP 3 WORDS AND EXIT POLISH MODE 


•10656 


013700 


003400 




MOV 


tFPS,P0 


(DISPLAY FLOATING POINT STATUS 


1589 


•10663 


170127 


040000 




LDFPS 


•040000 


(LOAD FPS, INTERRUPT DISABLE 


1590 


010666 


172437 


002436 




LDF 


LONUH,AC0 


[LOAD AC0 WITH A KANDQH NUMBER 


1591 


010672 


172537 


003436 




LDF 


HINUM.ACl 


(LOAD ACl WITH A RANDOM NUMBER 


1992 


•10676 


173737 


003416 




LDF 


ANS3,AC3 


(LOAD AC3 WITH THE SUM 


1593 


•10702 


170137 


004440 




LDFPS 


•004440 


(TURN INTERRUPTS ON, EXCEPT OVERFLOW Al 


1594 


•10706 


•13737 


010714 


Buiiia 


MOV 


•.«6,«LPADR 


(RESET LOOP ADDRESS 


1595 
















1596 
1597 
1598 


■10714 


173600 






LDF 


AC0,AC2 


(LOAD AC0 INTO AC3 


1599 


•10716 


173301 






ARET17! 6UBF 


AC1,AC3 


(SUBTRACT ACl BY AC2 


1600 


•10730 


170237 


003363 




STFPS 


FPS 


(STORE FLOATING POINT STATUS 


1601 


•10724 


033737 


003363 


003400 


CMP 


FPS, (FPS 


[CHECK FPS 


1603 


•10732 


00H0J 






BEQ 


AT5T17 


[BRANCH IF OK 


1603 


•10734 


174237 


002 406 




STf 


AC3,ANS1 


[SAVE FPU ANSWER 


1604 


•10740 


104002 






ERROR 


3 


[FPS ERROR 


1605 
1606 


010742 


173702 






ATST17I CMPF 


AC2,AC3 


[COMPARE FPU ANSWER TO FORTRAN ANSWER 


1607 


010744 


170000 






CFCC 




[COPY FLOATING CONDITION CODES 


1608 


rl0746 


001427 






BEg 


AENon 


(ANSWERS CHECK 


1609 










(COMPENSATE FOR FORTRAN 


INACCURACIES. 


1610 


010750 


174237 


002406 




STF 


AC2,ANS1 


(SAVE FPU ANSWER 


1611 


•10754 


063737 


000001 


003410 


ADD 


•1,ANS1«2 


(INCREMENT FPU ANSWER 


1612 


•10762 


009537 


002406 




ADC 


ANSI 




1613 


•10766 


173737 


002406 




CHPF 


ANS1,AC3 


(CHECK ANSWERS AGAIN 


1614 


•10772 


170000 






CFCC 




(COPY FLOATING CONDITION COOES 


1615 


010774 


001414 






BEO 


AEND17 


(BRANCH IF OK 


1616 


•10776 


163737 


000002 


003410 


SUB 


•2,ANSlt3 


(DECREMENT FPU ANSWER 


1617 


•11004 


005637 


002406 




SBC 


ANSI 




1618 


•11010 


173737 


002406 




CMPF 


ANS1,AC3 


(CHECK ANSWERS AGAIN 


1619 


•11014 


170000 






CFCC 




(COPY FLOATING CONDITION CODES 


1630 


•11016 


001403 






BEO 


AEND17 


[BRANCH IF OK 



TRUNCATE MODE 



FPU ADD/SUB/MUL/DIV RkNOOM EXER 
DOFPDB.PIl B4-H»Y-11 17I3B 



"»"" 'i;;""*' EXWc"E"0BF!'i;ER"o« JJd UNDERFLO. INTERRUPTS OFF., TRUNCATE «o" '"' 



1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 



(11020 
V11024 



174237 002406 
104007 



>11026 005037 002362 



011032 
011034 
011042 
011050 
011054 
•11060 
•11064 
011070 
011074 
011100 
•11104 
•11110 
•11114 
•11120 
•11122 

•11126 
•11132 
•11136 

•11142 
•11146 
•11192 
•11156 



012737 
012737 
005037 
005037 
•05037 
•05037 
0050)7 
004737 
002426 
004437 
•23510 
•23510 
023562 
023540 

•13700 
170127 
172437 
172537 
172737 
170127 
012737 



•11164 
•11166 
•11170 
•11174 
•11202 
•11204 
•11210 

•11212 
011214 
011216 

011220 
•11224 
•11232 
•11236 
•11242 
•11246 
•11252 



011166 
004640 
002402 
002404 
002362 
002364 
002366 
023332 
002436 
023506 
002426 
002436 

002416 

002400 
040200 
002426 
002436 
002416 
004640 
011164 



STF 

ERROR 



»EI«D17! CLP 



AC2,«NS1 

7 



;SAVE FPU ANSWER 

;FPU AND FORTRAN DISAGREE 



(CLR FPU FP5 BUFFtR 



jilEST 20 EXERCISE SUBU, OKtRFUOW AND UNUERt LOW INTERRUPTS OFF, TRUNCATE MODE 
IST20I 



002376 
002400 



SCOPE 

KOV 

HOV 

CLR 

CLR 

CLR 

CLR 

CLR 

JSR 

.WORD 

JSR 

(PUSH 

SPUSH 

8SUB 

SPOPX 

MOV 

LDFPS 

LDD 

LDD 

LDD 

LDFPS 

MOV 



172600 
173201 
170237 
•23737 
•01403 
174237 
104020 

173702 
170000 
001437 

174237 
•62737 
•05537 
•055 37 
(105537 
113737 
170000 



002362 
002362 



002406 

000001 002414 

002412 

002410 

002406 

002406 



IARET20rEXPFEA 

1004640, tFPS 

«FEC 

SFEA 

FPS 

FEC 

FEA 

PC,RANDL4 

LONU«,HTNUM 

R4,IP0LSH 

,LONUM 

,HINUH 

,ANS2 

SFPS,R0 

1040200 

LONUh,AC0 

HINUM.ACl 

ANS2,AC3 

1004640 

•,*6,SLPADR 



jADDR OF INSIR BEINO TESTED 
;SET IE BITS IN FORTRAN ANSHER 
;CLR FORTRAN FEC 
;CLP FORTRAN FEA 
[CLR FPU FPS BUFFER 
;CLP FPU FEC BUFFtR 
(CLR FPU FEA BUFFtR 
(GET RANDOM INPUT DATA 

JtNTER POLISH MODE 
(PUSH 4 WORDS ON STACK (LONUH) 
(PUSH 4 WORDS ON STACK <H1NUM) 
JaDDRESS of FORTRAN SUBTRACT 
(POP 4 WORDS AND EXIT POLISH MODE 

[DISPLAY FLOATING POINT STATUS 

(LOAD FPS, INTERRUPT dTSABLE AND FD 

[LOAD AC0 WITH A RANDOM NUMBER 

(LOAD ACl WITH A RANDOM NUMBER 

(LOAD AC3 WIIH THE SUM 

JtURN INTERRUPTS ON, EXCfcPT OVERHAND UNDERFLOW 

(RESET LOOP ADDRESS 



AC0,AC2 [LOAD AC0 INTO AC2 

AC1,AC2 (SUBTRACT ACl BY AC2 

fPS (STORE FLOATING POINT STATUS 

FPS,SFPS (CHECK FPS 

ATST20 (BRANCH IF OK 

AC2,ANS1 (SAVE FPU ANSWER 

JB [FPS ERROR 

JC2 AC3 (COMPARE FPU ANSWER T9 FORTRAN 'ANSWER 

' (COPY FLOATING CONDITION CODES 

AEND20 (ANSWERS CHECK 



STD 

ADD 

ADC 

ADC 

ADC 

C"PD 

CFCC 



AC2,AHS1 

>1,ANS1«6 

ANS1«4 

ANSIt2 

ANSI 

ANS1,AC3 



SAVE FPU ANSWER 
INCREMENT FPU ANSWER 



(CHECK ANSWERS AGAIN 

(COPY FLOATING CONDITION CODES 



";!orir'""'.l°;iY!?r?7:3f'' "'"" "U""" E^EROSrluBDri^ER^oS Ho UNDERFLOW INTERRUPTS OFF. TRUNCATE M^DE 



DOFPDB.PIl 



1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 



•11254 
011256 
•11264 
•11270 
•11274 
•11300 
•11304 
•11306 
011310 
011314 



001420 
162737 
•05637 
005637 
•05637 
173737 
170000 
•01403 
174237 
104010 



000002 
002412 
•02410 
002406 
002406 



•11316 005037 002362 



BEO 


AEND20 


sue 


f2,ANSlt6 


SBC 


ANSlt4 


SBC 


ANSlt2 


SBC 


ANSI 


CMPD 


ANS1,>C3 


CFCC 




BFQ 


AEND20 


STD 


AC2,ANS1 


EPROP 


10 


AEND20I CLR 


FPS 



(BRANCH IF OK 
[DECREMENT FPU ANSWER 



(CHECK ANSWERS AGAIN 

(COPY FLOATING CONDITION CODES 

(BHANCH IF OK 

(SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

(CLR FPU FPS BUFFtR 



FPU ADD/SUB/HUL/DIV BANDOH EXEB HACTll 27(lee6) B4-MAl(-77 IBllS PAGE 36 , „„ , 

DOFPDB PI t 84-"A»-77 17133 "1 EXERCISE HULF, ALL INTERRUPTS ON, ROUNDING MODE 



1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1693 

1699 

1709 

171)1 

17H2 

17D3 

1784 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 



011322 
111324 
•11332 
•11340 
■11344 
»11350 
011354 
011360 
011364 
011370 
011374 
•11400 
•11404 
•11410 
•11412 

•11416 
•11422 
•11426 
•11432 
•11436 
•11442 
•11446 



•11454 

•11456 
•11460 
•11464 
•11472 
•11474 
■11500 

•11502 
•11506 
•11510 

•11514 
•11522 
011524 

■11526 
•11534 
•11536 



•02004 

•12737 
•12737 
•05037 
•05037 
005037 
■05037 
005037 
•04737 
002426 
■04437 
•23510 
•23510 
•25244 
•23540 

•13700 
170127 
172437 
172537 
172737 
170127 
012737 



172603 
171201 
170237 
023737 
001403 
174237 
104003 

•05737 
100014 
170337 

023737 
001401 
104025 

023737 
001401 
104025 



011456 
007400 
•02402 
002404 
002362 
002364 
002 366 
023342 
002436 
023506 
002426 
002436 

002416 

002400 
040000 
002426 
002436 
002416 
007400 
011454 



002362 
002362 

002406 

002400 
002364 
002364 



J«TEST 21 EXERCISE MULF, ALL INTERRUPTS ON, ROUNDINO NODE 

11 •••••••••••••»•••••••»••••••••••••••♦••**'*••*••**•***•*""" 

IST21I SCOPE 
002376 HOV 

002400 NOV 

CLH 

CLP 

CLR 

CLR 

CLR 

JSP 

.WORD 

JSR 

(PUSH 

JPUSH 

tMUL 

SPOPX 



•11540 173702 

•11542 170000 

•11544 »01416 

•11546 174237 

•11552 162737 

•"11560 005637 



002366 002404 It: 



002406 
000001 
002406 



HOV 

LDFPS 

LDF 

LDF 

LDF 

LDFPS 

MOV 



IHREII.EXPFEA 

1007400, SFPS 

SPEC 

SFEA 

FPS 

FEC 

FFA 

PC,RANDL2 

LONUH,HINUM 

P4,$P0LSH 

,LONUM 

.HINUM 

,ANS2 

tFPS, P0 

•040000 

LONUh,AC0 

HINUM,AC1 

ANS2,»C3 

1007 400 

I,+6,iLPADR 



jADDR OF InSIR BEING TESTED 
;SET IE BITS IN FORTRAN ANSWER 
;CLR FORTRAN FEC 
jCLR FORTRAN FEA 
;CLR FPU FPS BUFFER 
iCLR FPU FEC BUFFER 
;CLR FPU FEA BUFFER 
iGET RANDOM INPUT DATA 

JeNTER polish MODE 
[PUSH 2 WORDS ON STACK (LONUM) 
■PUSH 2 WORDS ON STACK (HINUN) 
[ADDRESS OF FORTRAN MULTIPLY 
;POP 2 WORDS AND EXIT POLISH MODE 

JDISPLAI FLOATING pOINT STATUS 
;CLEAB THE FPS, INTERRUPT DISABLE 
ILOAD AC0 WITH A RANDOM MUMBER 
jlOAD AC! WITH A RANDOM NUMBER 
JLOAD AC3 WITH THE SUM 
jTURH INTERRUPTS ON 
iRESET LOOP ADDRESS 



LDF 

MULF 

STFPS 

CMP 

BEQ 

STF 

ERROR 

1ST 
BPL 
STST 

CMP 
BEO 
ERROR 



AC0,AC2 

AC1,AC2 

FPS 

FPS, tFPS 

HERRI 

AC2,ANS1 

3 

SFPS 

MTSTl 

FEC 

FEC, •FEC 

1< 

25 



;LOAD AC0 INTO AC2 

(MULTIPLI ACl BY AC2 

ISTORE FLOATING POINT STATUS 

[CHECK FPS 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPS ERROR 

[ERROR BIT SET 7 

[NO, nONI GET FEC/FEA 

[YES, CHECK STATUS 

[CHECK THE FLOATING EXCEPTION CODES 
[BRANCH IF OK 
(FEC IS WRONG 

[CHECK FLOATING PC 

[BRANCH IF OK 

[WRONG ADDRESS IN FEA 



CMP FEA, SFEA 

BEU HTSTl 

ERROR 25 

CMpF AC2,AC3 [COMPARE FpU ANSWER TO FORTRAN ANSWER 

CFcc [COPY FLOATING CONDITION CODES 

BEO HENOl (ANSWERS CHECK 

[COMPENSATE FOR FORTRAN INACCURACIES. 

STF AC2,ANS1 [SAVE FPU ANSWER 

SUB •l,ANSlt2 [DECREMENT FPU ANSWER 

SBC ANSI 



FPU AOO/SUB/MUL/DIV RANDOM FXER MACYll 
DOFPOB.PIl a4-MAY-77 17:30 



1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 



•11564 
•11570 
•11572 
•11574 
•11601 



173737 
170000 
001403 
174237 
104011 



•11602 005037 



002406 
002406 
002362 



■11606 
»11610 
■11616 
•11624 
011630 
•11634 
•11640 
■11644 
■11650 
•11654 
011660 
011664 
■ 1167(1 
011674 
P11676 

•11702 
•11706 
■11712 
011716 
■11722 
■11726 
■11732 



000004 
■12737 
012737 
005037 
005037 
005037 
005037 
005037 
■04737 
002426 
004437 
023510 
023510 
025244 
■23540 

013700 
170127 
172437 
172537 
172737 
170127 
■12737 



"tm""" EXE;c;se"mULf!'1lL IN^TERrJpTS on, ROUNDING MODE 

[CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

[CLEAR FPP FPS BUFFER 





CMPF 


ANS1,«C3 




CFCC 






BEO 


MENDl 




STF 


AC2,A>IS1 




ERROR 


11 


HENDl: 


CLR 


fPS 



■11740 
011742 
•11744 
•11750 
•11756 
•11760 
■11764 

•11766 
•11772 
•11774 

•12000 
•12006 
•12010 



1«IEST 22 



•• ""I'l'^ll" 

EXERCISE MULL, ALL INTERRUPTS ON, POUNDING MODE 



011742 
007600 
002402 
002404 
002362 
002364 
002366 
023332 
002436 
023506 
002426 
002436 

002416 

002400 
040200 
002426 
002436 
002416 
007600 
011740 



002376 
002400 



TST22: SCOPE 
MOV 
MOV 
CLk 
CLR 
CLR 
CLR 
CLP 
JSR 
.WORD 
JSR 

• PUSH 

• PUSH 
(MUL 

• POPX 

HOV 

LDFPS 

LDD 

LDD 

LDD 

LDFPS 

HOV 



172600 
171201 
170237 
023737 
■01403 
174237 
104021 

•05737 
100014 
170337 

■23737 
■01401 
104031 



002362 
002362 00241 

002406 

■02400 
002364 
002364 0024 



IMRET2,EXPFEA 

1007600, SFPS 

SFEC 

• FEA 

FPS 

FEC 

FEA 

PC,BANDL4 

LONUM, HINUH 

R4,SP0LSH 

, LONUM 

,HINUM 

,ANS2 

SFPS,R0 

1040200 

LONUM, *CB 

HINUM.ACl 

ANS2,AC3 

•007600 

•.t6>«LPADR 



[ADDR OF INSTR BEING TESTED 
JsET IE BITS IN FORTRAN ANSWER 
|CLB FORTRAN FEC 
[CLR FORTRAN FEA 
[CLR FPU FPS BUFFER 
•CLR FPU FEC BUFFER 
[CLR FPU FEA SUFFER 
[GET RANDOM INPUT DATA 

■ENTER POLISH MODE 

•PUSH 4 WORDS ON STACK (LONUM) 

•PUSH 4 WORDS ON STACK (HINUM) 

•ADDRESS OF FORTRAN MULTIPLY 

JpOP 4 WORDS AND EXIT POLISH MODE 

•DISPLAY FLOATING POINT STATUS 

•SET FD OF FPS ONLY- INTERRUPT DISABLE 

■LOAD AC0 WITH A RANDOM NUMBER 

(LOAD ACl WITH A RANDOM NUMBER 

(LOAD AC3 WITH THE SUM 

[TURN INTERRUPTS ON 

[RESET LOOP ADDRESS 



LDD 

MULD 

STFPS 

CMP 

BEO 

STD 

ERROR 

TST 
BPL 
STST 

CMP 
BFO 
ERROR 



AC0,AC2 

AC1,AC2 

FPS 

FPS,«FPS 

MERR2 

AC2<kNS1 



• FPS 

MIST2 

FEC 

FEC, •FEC 

1> 

31 



(LOAD ACa INIO AC2 

[MULTIPLY ACl BY AC2 

[STORE FLOATING POINT STATUS 

[CHECK FPS 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPS ERROR 

[ERROR BIT SET 7 

•NO, DONT GET FEC/FEA 

[YES, CHECK STATUS 

[CHECK THE FLOATING EXCEPTION CODES 
[BRANCH IF OK 

[FEC IS WRONG 



FPU UDD/SUB/HUL/DIV BANDON EXEB H»CI>1 27(H)B6) 04-»«J-77 IBSlB PAGE 38 

122 EXERCISE mm, ALL IMIERBUPTS Oh, BOUNDING MODE 

ISl CHP FEA.tFEA ;CHECK FLOATING PC 

BEO HTST2 ;BR»NCH IF OK 

ERPOR 31 i WRONG AUOBESS IN FEA 

HTSTJ- CHPD AC2,AC3 [COMPARE FPU ANSWER TO FORTRAN ANSWER 

CFCC ;COPY FLOATING CONDITION CODES 

BEQ MEND2 [ANSWERS CHECK 

;COMPENSATE FOB FORTRAN INACCURACIES. 



DSFPDB.I 


Pll »' 


».MAJ-77 


17l3e 


1802 


•12012 


•23737 


•02366 002404 


1803 


el2020 


•01401 




1804 


012022 


104031 




180S 








1806 


012024 


173702 




1807 


•12026 


170000 




1809 


•12030 


•01422 




1809 








1810 


•12032 


174237 


•02406 


1811 


•12036 


162737 


0D0001 002414 


1812 


•12044 


•05637 


002412 


1813 


•12050 


•05637 


022410 


1814 


•12054 


•05637 


002406 


1815 


•12060 


173737 


002406 


1816 


•12064 


170000 




1817 


■12066 


•01403 




1818 


•12070 


174237 


002406 


1819 


•12074 


104012 




1820 








1821 


•12076 


•B5037 


002362 


1822 








1823 








1824 








1825 








1826 








1827 








1828 








1829 


•12102 


000004 




1830 


•12184 


•12737 


•12236 002376 


1831 


•12112 


•12737 


004400 002400 


1832 


•12120 


•05037 


002402 


1833 


•12124 


•05037 


002404 


1834 


012130 


005037 


002362 


1835 


•12134 


005037 


•02364 


1836 


•12140 


005037 


002366 


1837 


•12144 


•04737 


023342 


1838 


•12150 


002426 


•02436 


1839 


•12154 


004437 


•23506 


1840 


•12160 


•23510 


•02426 


1841 


•12164 


•23510 


••2436 


1842 


012170 


•55244 




1843 


•12172 


•23540 


002416 


1844 








1845 


•12176 


013700 


002400 


1846 


•12202 


170127 


•40000 


1847 


•12206 


172437 


002426 


1848 


•12212 


172537 


002436 


1849 


•12216 


172737 


002416 


1850 


•12222 


170127 


•04400 


1851 


212226 


•12737 


•12234 BB1110 


1852 








1853 








1854 








1855 


•12234 


172600 




1856 


•12236 


171201 




1857 


•12240 


170237 


•02362 



STD 

SUB 
SBC 
SBC 
SBC 

CMpn 

CFCC 
BEO 
STU 
ERROR 

MEND2: CLB 



AC2,ANS1 

ll,ANSlt6 

ANSlt4 

ANS1«2 

ANSI 

ANS1>AC3 

MEND2 

AC2,tNSl 

12 



;SAVE FPU ANSWER 
jDECREMFNT FPU ANSWER 



{CHECK ANSWERS AGAIN 

jCOPI FLOATING CONDITION CODES 

[BRANCH IF OK 

;SAVE FPU ANSWER 

•FPU ANU FORTRAN DISAGREE 

[CLEAR FPP Fps BUFFER 



[♦Test 23 
[[••••••••••♦•I 

TST23; SCOPE 
MOV 
MOV 
CLR 
CLR 
CLB 
CLR 
CLR 
JSB 
.WORD 
JSR 
(PUSH 
(PUSH 
(MUL 
SPOPX 

MOV 

LDFPS 

LDF 

LDF 

LDF 

LDFPS 

MOV 



EXERCISE HULF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, BOUNDING MODE 



IMREIJ.EXPFEA [ADDR OF INSTR BEING TESTED 

»B044i»0,SFPS [SET IE BITS IN FORTRAN ANSWER 

(FEC [CLR FORTRAN FEC 

(FEA [CLR FORTRAN FEA 

FPS [CLR FPU FPS BUFFER 

FEC [CLR FPU FEC BUFFER 

FEA ;CLP FPU FEA BUFFER 

PC,PANDL2 [GET RANDOM INPUT DATA 

LONUM,HINUH [ 

B4,SP0LSH [ENTER POLISH MODE 

.LOHUM [PUSH 2 WORDS ON STACK (LONUH) 

,HINUM [PUSH 2 WORDS ON STACK (HINUM) 

[ADDRESS OF FORTRAN MULTIPLY 

,ANS2 [POP 2 WORDS AND EXIT POLISH MODE 

SFPS,R0 [DISPLAY FLOATING pOINT STATUS 

I0400O0 (CLEAR THE FPS, INTERRUPT DISABLE 

LONUM,AC0 [LOAD ACa WITH A RANDOM NUMBER 

HINUM, ACl [LOAD ACl WITH A RANDOM NUMBER 

ANS2,AC3 [LOAD ACS WITH THE SUM 

I0044«0 [TURN INTERRUPTS ON, EXCEPT OVERFLOW AND UNDERFLOW 

l.t6,SLPADR [BESET LOOp ADDRESS 



[••••»«••««»»•«•»••••••*•••••*•■ 



I ##•»»»#•»•»*•»# »♦*«••••»**•••• 



LDF 

MULF 

STEPS 



ACB,AC2 
AC1,AC2 
FPS 



[LOAD AC0 INTO AC2 

[MULTIPLH ACl BY AC2 

[STORE FLOATING POINT STATUS 



FPU ADD/SUB/MUL/DIV RANDOM EXER MACYll 27(1006) 04-MAY-77 18118 PAGE 39 SEO 0e4B 

OOFPDB.PII 04.MAY.77 17l3B T23 EXERCISE MULF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 



1858 
1859 
1860 
1R61 
1862 
1863 
1864 
1865 
1866 
1867 
1B68 
1869 
1879 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 



•12244 023737 002362 002400 

•12252 001403 

•12254 174237 002406 

•12260 104003 

•12262 173702 

•12264 170000 

•12266 001416 



•12270 
•12274 
•12302 
•12306 
•12312 
H2314 
1112316 
•12322 



174237 
162737 
0H5637 
173737 
17(»000 
0^1403 
174237 
104011 



002406 
00Bf01 
002406 
0024B6 



012324 005037 BB2362 



•12330 
•12332 
•12340 
•12346 
112352 
•12356 
•12362 
•12366 
•12372 
•12376 
•I24B2 
•12406 
•12412 
012416 
•12420 

•12424 
•12430 
•12434 
•12440 
•12444 
•12450 
•12454 



•12462 
•12464 
•12466 
•12472 



000004 
•12737 
•12737 
•05037 
•05037 
005037 
•05037 
••5037 
004737 
•02426 
004437 
023510 
•23510 
025244 
023540 

•13700 
17B127 
172437 
172537 
172737 
17B127 
•12737 



172600 
171201 
178237 
•23737 



CMP 


FPS, (FPS 


BEO 


MTST3 


STF 


AC2,ANS1 


ERROR 


3 


CMPF 


AC2,AC3 


CFCC 




EEO 


MEIID3 


[COMPENSATE FOR Fl 


STF 


AC2,ANS1 


SUB 


il,ANSlt2 


SBC 


ANSI 


CMPF 


ANS1,AC3 


CFCC 




BEO 


MENDS 


STF 


AC2,ANS1 


ERROR 


11 



[CHECK FPS 
[BRANCH IF OK 
[SAVE FPU ANSWER 
[FPS ERROR 

[COMPARE FPU ANSWER TO FORTRAN ANSWER 

[COPY FLOATING CONDITION CODES 

[ANSWERS CHECK 

INACCURACIES. 

[SAVE FPU ANSWER 

[DECREMENT FPU ANSWER 

[CHECK ANSWERS AGAIN 

[COP« FLOATING CONDITION CODES 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

[CLEAR FPP FPS BUFFER 



[•TEST 24 



EXERCISE MULD, OVERFLOW ANli UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 



•12464 002376 

B046BB •02400 

BB2402 

002404 

BB2362 

•02364 

002366 

023332 

B02436 

•23506 

•02426 

•B2436 

002416 

002400 
04B2Be 
002426 
002436 
002416 



B12462 BBIUB 



BB2362 

002362 002400 



[[•••••••••••* 

TST24: SCOPE 
MOV 
MOV 
CLR 
CLB 
CLB 
CLR 
CLR 
JSR 
.WORD 
JSR 
(PUSH 
(PUSH 
(MUL 
(POPX 

MOV 

LDFPS 

LOD 

LDD 

LDO 

LOFPS 

MOV 



• nrf:t4,expfea 

l0B46BB,tFPS 

(FEC 

(FEA 

FPS 

FEC 

FEA 

PC,RANDL4 

LONUM, HINUM 

R4,SP0LSH 

, LONUM 

, HINUM 

,ANS2 

(FPS,R0 

•B4B20B 

LONUM, AC0 

HINUM, ACl 

ANS2,AC3 

1004600 

l.t6,(LPADR 



[addr of twstr being tested 
[set ie bits in fortran answer 
[clb fortran fec 
[clr fortran fea 
[clr fpu fps buffer 
[clr fpu fec buffer 
[clr fpu fea buffer 
[get random input data 

Ienter poU^h mode 

[PUSH 4 MtVi ON STACK (LONUM) 
[PUSH 4 W(nn>S ON STACK (HINUM) 
[ADDRESS OF FORTRAN MULTIPLY 
[POP 4 WORDS AND EXIT POLISH NODE 

[DISPLAY FLOATING POINT STATUS 

[SET FD OF FPS ONLY, INTERRUPT DISABLE 

[LOAD ACB WITH A RANDOM NUMBER 

[LOAD ACl WITH A RANDOM NUMBER 

[LOAD AC3 WITH THE SUM 

[TURN INTERRUPTS ON, EXCEPT OVER AND UNDERFLOW 

[RESET LOOP ADDRESS 



LOO ACB,AC2 [LOAD AC0 INTO AC2 

MULD ACl,AC2 [MULTIPLH ACl BY AC2 

STEPS FPS [STORE FLOATING POINT STATUS 

CMP FPS, (FPS [CHECK FPS 



FPU ADD/5UB/HUL/DIV RINDOM EXER MACYll 27(1886) ei4-«AY-77 IRMB PACE 4P 



OaFPDB.PU 



1914 
19IS 

1916 
1917 
19ie 
1919 
1930 
19J1 
192} 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 



«125e0 
•12502 
012506 

012510 
»12512 
»12514 

012516 
ei2S22 
•12530 
•12534 
•12540 
•12544 
•12550 
•12552 
•12554 
•12560 



04-mil-77 17:30 

001401 

174257 
104021 



124 EXERCISE KULD, OVEPFLOl* AND UNDEPFLOk INTERRUPTS OFF, ROUNDING HODE 



173702 
170000 
•01422 

174237 
162737 
•056 37 
••5637 
••56 37 
173737 
170000 
001403 
174237 
104012 



002406 

000001 

002412 

002410 
002406 
002406 



•12562 005037 002362 



•12566 
•12570 
•12576 
BI26e4 
•12610 
•12614 
•12620 
•12624 
•12630 
•12634 
•12640 
•12644 
•12650 
•12654 
•12656 

•12662 
•12666 
•12672 
•12676 
•12702 
•12706 
•12712 



•00004 
•12737 
•12737 
•05037 
•05037 
•05037 
005037 
•05037 
004737 
002426 
•04437 
•23510 
023510 
025244 
023540 

013700 
170127 
172437 
172537 
172737 
170127 
•12737 



BEO 


MTST4 


STD 


AC2,A>IS1 


ERROR 


21 


HT5T41 CMPD 


AC2,AC3 


CFCC 




BEb 


HEND4 


(COMPENSATE FOR F 


STD 


AC2.ANS1 


SUB 


ll.ANSltfc 


SBC 


ANSIt4 


SBC 


ANS1»2 


SBC 


ANSI 


CHPD 


ANS1.AC3 


CFCC 




BF.0 


HEND4 


STD 


AC2,ANS1 


ERROR 


12 


HeND4: CLR 


FPS 



[BRANCH IF OK 
fSAVE FPU ANSWER 
;FPS ERROR 

;COHp»RE FPII ANSWER TO FOBTBAN ANSWER 

jCOPJ FLOATING CONDITION CODES 

(ANSWERS CHECK 

INACCURACIES. 

;SAVE FPU ANSWER 

[DECREMENT FPU ANSWER 



CHECK ANSWERS AGAIN 

COPl FLOATING CONDITION CODES 

BRANCH IF OK 

SAVE FPU ANSWER 

FPU AND FORTRAN DISAGREE 



(CLEAR FPP FPS BUFFER 



) (••••*>l>l> 

(•TEST 25 



EXERCISE MULF, ALL INTEPRUPIS ON, TRUNCATE MODE 



012722 
•07440 
002 402 
•02 404 
002362 
002364 
•02366 
023342 
002436 
•23506 
002426 
002436 

002416 

•02400 



002376 
002400 



•02426 
•02436 
002416 
007440 
012720 



•12720 172600 

•12722 171201 

•12724 170237 002362 

•12730 023737 002362 



SCOPE 




MOV 


IMRET5,EXPFEA 


HOV 


•007440, «FPS 


CLR 


SFEC 


CLR 


SFEA 


CLR 


FPS 


CLR 


FEC 


CLR 


FEA 


JSR 


PC,RANDL2 


.WORD 


LONUM.HINUH 


JSR 


P4,SP0LSH 


SPUSH 


,LONUM 


SPUSH 


,HINUM 


tMUL 




SPOPX 


,ANS2 


MOV 


6FP5>P0 


LDFPS 


1040000 


I.DF 


LONUM,AC0 


LDF 


HINUM,AC1 


LDF 


ANS2,>C3 


LDFPS 


1007440 


MOV 


ll.t6,SI.PADR 



(ADDR OF INSTR BEING TESTED 
(SET IE BITS IN FORTRAN ANSWER 
(CLR FORTRAN FEC 
(CLR FORTRAN FEA 
(CLR FPU FPS BUFFER 
(CLR FPU FEC BUFFER 
(CLR FPU FEA BUFFER 
(GET RANDOM INPUT DATA 

IeNTER polish MODE 
(PUSH 2 WORDS ON STACK (LONUM) 
(PUSH 2 WORDS ON STACK (HINUM) 
(ADDRESS OF FORTRAN MULTIPLY 
(POP 2 WORDS AND EXIT POLISH MODE 

(DISPLAY FLOATING POINT STATUS 
(CLEAR THE EPS, INTERRUPT DISABLE 
(LOAD AC0 WITH A RANDOM NUMBER 
(LOAD ACl WITH A RANDOM NUMBER 
(LOAD ACS WITH THE SUM 
(TURN INTERRUPTS ON 
(RESET LOOP ADDRESS 



LDF 


AC0 


AC 2 


MULF 


ACl 


AC 2 


STFPS 


»PS 




CMP 


FPS 


SFPS 



(LOAD ACB INTO AC2 
(MULTIPLY ACl BY AC2 
(STORE FLOATING POINT STATUS 
(CHECK FPS 



FPU ADD/ 
DOFPDB.P 

1970 

1971 

197 2 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

198d 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 



SUB/MUL/DIV RANDOM EXER MACYU 27(1006) 
04-MAY-77 ni30 T25 

012736 001403 

•12740 174237 002406 

012744 104003 



Hd-MAY-77 113:18 PAGE 41 
EXERCISE MULF, ALL INTERRUPTS ON, TRUNCATE MODE 



BEO HEPB5 
STF AC2,ANS1 
ERROR 3 



•12746 B05737 002400 MtBR 

el2752 100014 

•12754 170337 002364 

B12760 023737 002364 002402 

•12766 001401 

•12770 104025 

012772 023737 002366 002404 IS: 

•13000 »01401 

013002 104025 

• 13004 173702 "■'5'' 

•13006 170000 

013010 001427 



013012 
•13016 
1113021 
•13030 
•13034 
•13036 
•13040 
•13046 
•13052 
•13056 
•13060 
•13062 
813066 



174237 
062737 
095537 
173737 
170000 
001414 
162737 
005637 
173737 
170000 
•01403 
174237 
104011 



002406 
000001 
002406 
002406 



000002 
002406 
002406 



013070 005037 002362 



TST 


SFPS 


BPL 


MTST5 


STST 


FEC 


CMP 


(EC,«FEC 


BEQ 


IS 


EPROR 


25 


CMP 


FEA, SFEA 


BEO 


MTST5 


ERROR 


25 


CHPF 


AC2,AC3 


CFCC 




BEO 


HEND5 


(COMPENSATE FOR FORTRAN 


STF 


AC2,ANS1 


ADD 


I1,ANS1'»2 


ADC 


ANSI 


CMPF 


ANS1,AC3 


CFCC 




BEO 


HEND5 


SUB 


•2,ANS1»2 


SBC 


ANSI 


CMPF 


ANS1,AC3 


CFCC 




BEO 


MENDS 


STF 


AC2,ANS1 


ERROR 


11 



(BRANCH IF OK 
(SAVE FPU ANSWER 
(FPS ERROR 

(ERROR BIT SET ? 

(NO, DONT GET FEC/FEA 

(YES, 



CHECK STATUS 



013074 
•13076 
•13104 
•13112 
•13116 
•13122 
•13126 
•13132 
•13136 
•13142 
•13146 
•13152 
813156 
•13162 



000004 
•12737 
012737 
005037 
035037 
•05037 
•05037 
•05037 
004737 
•02426 
•04 4 37 
•23510 
•23510 
025244 



TEST 26 EXERCISE MULD, 
.T26! SCOPE 



013230 
007640 
002402 
002404 
002362 
002364 
•02 366 
023332 
002436 
023506 
002426 
•02436 



002376 
002400 



MOV 


IMREI6,EXPFEA 


MOV 


•007640, SFPS 


CLR 


SFEC 


CLP 


SFEA 


CLR 


FPS 


CLR 


FEC 


CLR 


FEA 


JSK 


PC,RANDL4 


.WORD 


LONUM, HINUM 


JSR 


R4,«P0L5H 


SPUSH 


, LONUM 


SPUSH 


, HINUM 


tMUL 





(CHECK THE FLOATING EXCEPTION CODES 
'[BRANCH IF OK 
(FEC IS WRONG 

(CHECK FLOATING PC 

jBRANCH IF OK 

(WRONG ADDRESS IN FEA 

•COMPARE FPU ANSWER TO FORTRAN ANSWER 

'[COPY FLOATING CONDITION CODES 

(ANSWERS CHECK 

INACCURACIES. 

(SAVE FPU ANSWER 

-INCREMENT FPU ANSWER 

(CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION COOES 

IbRANCH if OK 

(DECREMENT FPU ANSWER 

(CHECK ANSWERS AGAIN 

SCOPY FLOATING CONDITION CODES 

'(BRANCH IF OK 

[SAVE fPU ANSWER 

(FPU AND FORTRAN DISAGREE 

(CLEAR FPP FPS BUFFER 



1. »••»••••••••••••••••••••*•****"** 

ALL INTERRUPTS OH, TRUNCATE MODE 

(ADOR OF INSTR BEING TESTED 

[SET IE BITS IN FORTRAN ANSWER 

'(CLR FORTRAN FEC 

[CLR FORTRAN FEA 

(CLR FPU FPS BUFFER 

(CLR FPU FEC BUFFER 

[CLR FPU FEA BUFFER 

(GET RANDOM INPUT DATA 

(ENTER POLISH MODE 
•PUSH 4 WORDS ON STACK (LONUM) 
IpUSH 4 WORDS ON STACK (HINUM) 
•ADDRESS OF FORTRAN MULTIPLY 



FPU ADD/SUB/HUL/DIV RtNDOM EXER H«CY11 27(lee6) a4-MAY.77 1B!1B PACE 42 

OOrPDB.PH a4-«»l-77 17:3B TJd EXERCISE «ULD, AIL INTERRUPTS ON, TRUNCATE MODE 



3(136 
3027 
3038 
2039 
3030 
2031 
2032 
2033 
3034 
203S 
3036 
3037 
3038 
3039 
3040 
3041 
2042 
2043 
2044 
204S 
2046 
2047 
2048 
3049 
3050 
30J1 
20S2 
3053 
3054 
2055 
2056 
3057 
3058 
3059 
3060 
2061 
2063 
206 3 
2064 
2865 
2066 
2067 
2068 
2069 
3070 
3071 
2072 
2073 
3074 
2075 
3076 
2077 
2078 
3079 
3080 
2081 



»13164 023540 002416 



013170 
013174 
013200 
013304 
013210 
III3314 
013230 



>13226 
»13230 
013233 
013236 
VI3244 
013346 
013253 

013254 
013260 
013263 

013266 
013374 
•13376 

013300 
913306 
013310 

013312 
013314 
013316 

013330 
013334 
013332 
«I3336 
1113342 
013346 
013352 
013354 
013356 
013364 
01337a 
013374 
013400 
613404 
013406 
013410 
013414 



013700 

17013 

17343 

17253 

17273 

17012 

01273 



002400 
040300 
002426 
002436 
002416 
007640 
013326 



172600 
171301 
170237 
033737 
001403 
174237 
104021 

005737 
100014 
170337 

023737 
001401 
104031 

023737 
001401 
104031 

173702 
170000 
001437 

174237 
062737 
005537 
005537 
005537 
173737 
170000 
031420 
162737 
005637 
005637 
005637 
173737 
170000 
001403 
174237 
104012 



002363 

002362 002400 

002406 

002 400 KEF 

002364 

002364 002402 

002366 002404 le: 



002406 
000001 
002412 
003410 
002406 
002406 



000002 002414 

002413 

003410 

003406 

002406 



MOV 


8FPS,R0 


LDFPS 


1040300 


LDU 


LONUM,AC0 


LDD 


HINUM.ACl 


LPD 


ANS2i«C3 


LDEPS 


•007640 


MOV 


t.-refSLPADR 


LDD 


AC0,AC3 


MUtO 


AC1.AC3 


STEPS 


FP5 


CMP 


rPSrSFPS 


BEO 


MERR6 


STD 


AC3,ANS1 


ERROR 


31 


TST 


6FPS 


BPL 


MTST6 


5T5T 


FEC 


CMp 


FECf SFEC 


BEO 


1$ 


ERROR 


31 


CMP 


FFA.SFEA 


BEQ 


MTST6 


ERROR 


31 


CMPD 


AC2,AC3 


CFCC 




BEa 


MEND6 


ICOMPEKSATE FOB FORTRAN 


STD 


«C2,A>IS1 


ADD 


•1,ANSlt6 


ADC 


AN51'»4 


ADC 


ANS1»3 


ADC 


ANSI 


CMPD 


ANS1,AC3 


CFCC 




BEQ 


HEND6 


SUB 


»2,ANSlt6 


SBC 


*NS1*4 


SBC 


ANS1»2 


SBC 


ANSI 


CMPD 


ANSI,AC3 


CFCC 




BEQ 


MEND6 


STD 


AC2,ANS1 


ERROR 


12 



:POP 4 NOPDS AND EXIT POLISH MODE 

IDISPLAT FLOATING POINT STATUS 

;SET FD OF FPS ONLr, INTERRUPT DISABLE 

;LOAD AC0 WITH A RANDOM NUMBER 

[LOAD ACl WITH A RANDOM NUMBER 

jLOAD AC3 NIIH THE SUM 

[TURN INTERRUPTS ON 

[RESET LOOP ADDRESS 



013416 005037 002363 



HEND6: CLH 



)LOAD AC0 INTO AC3 

[MULTIPLY ACl BI ACS 

JSIORE FLOATING POINT STATUS 

[CHECK FPS 

[BRANCH IF OK 

[SAVE FPU ANSWER 

;FPS ERROR 

[ERROR BIT SET ? 

[NO, DONT GET FECFEA 

[lES, CHECK STATUS 

[CHECK THE FLOATING EXCEPTION CODES 
[BRANCH IF OK 
[FEC IS WRONG 

[CHECK FLOATING PC 

[BRANCH IF OK 

[WRONG ADDRESS IN FEA 

[COMPARE FPU ANSWER TO FORTRAN aNSNER 

[COPY FLOATING CONDITION CODES ' 

[ANSWERS CHECK 

INACCURACIES. 

[SAVE FPU ANSWER 

[INCREMENT FPU ANSWER 



[CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

[DECREMENT FPU ANSWER 



[CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

[CLEAR FPP FPS BUFFER 



FPU ADD/SUB/MUL/DIV RANDOM EXER HACY11 
D0FPDB.P11 04.MAY.77 17l30 



27(1006) 04-MAY-77 1HI18 PAGE 43 
T26 EXERCISE MULD, ALL INTERRUPTS ON, TRUNCATE MODE 



2082 
















2083 
















2084 
















2085 










1 :•••••»•••••• 






2086 
2087 
2088 










[•TEST 27 


EXERCISE MULF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, 


013433 


000004 






TSI27! SCOPE 


^♦^♦•••♦••#IJfr##^#^"-*'""*'"**'*^'*"'*"'*""'*'*""" ***"■'*" ■■titiaJ^JaA.iiM dJ* 




2089 


013434 


012737 


013556 


003376 


KOV 


»HRET7,FXPFEA 


ADDR OF INSTR BEING TESTED 


2090 


013433 


013737 


004440 


002400 


MOV 


1004440, SFPS 


SET IE BITS IN FORTRAN ANSWER 


2091 


013440 


005037 


002402 




CLR 


SPEC 


CLR FORTRAN FEC 


3093 


013444 


005037 


002404 




CLH 


SFEA 


CLR FORTRAN FEA 


2093 


013450 


005037 


003363 




CLR 


FPS 


CLR FPU FPS BUFFER 


2094 


013454 


005037 


002364 




CLR 


FEC 


CLR FPU FEC BUFFER 


2095 


013460 


005037 


002366 




CLP 


lEA 


CLR FPU FEA BUFFER 


2096 


013464 


054737 


023343 




JSR 


PC,RA»DL3 


GET RANDOM INPUT DATA 


2097 


013470 


002426 


002436 




.WORD 


LONUM.HINUM 




2098 


013474 


004437 


023506 




JSR 


R4,SP0LSK 


ENTER POLISH MODE 


2099 


013500 


023510 


002426 




$PUSH 


,LONUM 


PUSH 2 WORDS ON STACK (LONUM) 


2100 


013504 


023519 


002436 




SPUSH 


,HINUM 


PUSH 2 WORDS ON STACK (HINUH) 


3101 


013510 


025244 






SMUL 




ADDRESS OF FORTRAN MULTIPLY 


3102 


013512 


023540 


002416 




«POPX 


,ANS2 


POP 3 WORDS AND EXIT POLISH MODE 


3103 
















3104 


013516 


013700 


002400 




MOV 


SFPS,R0 


DISPLAY FLOATING POINT STATUS 


2105 


011522 


170127 


040000 




LDFPS 


•040000 


CLEAR THE FPS, INTERRUPT DISABLE 


2106 


013526 


172437 


002426 




LDF 


LONUM,AC» 


LOAD AC0 WITH A RANDOM NUMBER 


2107 


013533 


172537 


002436 




LDF 


HINUM.ACl 


LOAD ACl WITH A RANDOM NUMBER 


2108 


013536 


172737 


003416 




LDF 


ANS3,AC3 


LOAD AC3 WITH THE SUM 


3109 


013542 


170127 


004440 




LDFPS 


•004440 


TURN INTERRUPTS ON, EXCEPT OVERFLOW A 


3110 
2111 
2112 


013546 


012737 


013554 


001110 


MOV 


•.♦6,SLPADR 


RESET LOOP ADDRESS 
















2113 


' 






3114 


013554 


172600 






LDF 


AC0,AC3 


LOAD AC0 INTO AC2 


3115 


ri3S36 


171201 






MRET7I MULF 


AC1,AC3 


MULTIPLY ACl BY AC2 


3116 


013560 


170237 


002362 




STFPS 


FPS 


STORE FLOATING POINT STATUS 


3117 


013564 


033737 


002363 


003400 


CMP 


FPS, SFPS 


CHECK FPS 


2118 


013572 


001403 






BEO 


HTST7 


BRANCH IF OK 


2119 


013574 


174237 


002406 




STF 


AC2,ANS1 


SAVE FPU ANSWER 


3120 


013600 


104003 






EPBOB 


3 


FPS ERROR 


3121 
















2122 


013602 


173702 






MTST7! C"PF 


AC2,AC3 


COMPARE FPU ANSWER TO FORTRAN ANSWER 


2123 


013604 


170000 






CFCC 




COPY FLOATING CONDITION CODES 


2124 


013606 


001437 






BEO 


MEND7 


ANSWERS CHECK 


2125 










[COMPENSATE FOR FORTRAN 


NACCURACIES. 


2126 


013610 


174237 


003406 




STF 


AC2,ANS1 


SAVE FPU ANSWER 


2137 


013614 


062737 


000001 


002410 


ADD 


•l,ANSt«2 


INCREMENT FPU ANSWER 


2128 


013623 


005537 


002406 




ADC 


ANSI 




2129 


013626 


173737 


002406 




CMPF 


ANS1,>C3 


CHECK ANSWERS AGAIN 


2130 


013632 


170000 






CFCC 




COPY FLOATING CONDITION CODES 


2131 


013634 


001414 






BEQ 


MEND7 


BRANCH IF OK 


2132 


013636 


162737 


000002 


002410 


SUB 


•2,ANS1»3 


DECREMENT FPU ANSWER 


2133 


013644 


005637 


002406 




SBC 


ANSI 




2134 


013650 


173737 


002406 




CMPF 


ANS1,AC3 


CHECK ANSWERS AGAIN 


2135 


013654 


170000 






CFCC 




COPY FLOATING CONDITION CODES 


2136 


013656 


001403 






BED 


HEHD7 


BRANCH IF OK 


2137 


01 3660 


174237 


003406 




STF 


AC3,AIIS1 


SAVE FPU ANSWER 
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2U9 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
214a 
2149 
215B 
2151 
2152 
2153 
2154 
2155 
2196 
2157 
2158 
2159 
2168 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
216B 
2169 
217D 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2176 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 



813664 


104811 






ERROR 


11 


813666 


885037 


002362 


MEND7: 


CLR 


rps 



jFPU AND FORTRAN DISAGREE 
;CLE»B FPP FPS BUFFER 



813672 
813674 
813782 
813710 
813714 
813728 
813724 
813730 
813734 
813740 
813744 
813750 
813754 
813760 
813762 

813766 
813772 
813776 
814882 
814006 
814012 
814016 



814024 
814026 
814030 
814034 
814042 
814044 
814050 

814852 
814854 
814056 

814060 
814864 
814872 
814076 
814182 
814186 
814112 
814114 



812737 
812737 
885037 
805037 
889037 
885037 
805037 
004737 
802426 
804437 
823510 
823518 
825244 
873540 

813700 
170127 
172437 
(72537 
172737 
178127 
812737 



172600 
171201 
170237 
823737 
881403 
174237 
104021 

173782 
170888 
881437 

174237 
B62737 
0855 37 
885537 
885537 
173737 
170000 
001420 



014026 
004640 
002402 
882404 
082362 
002364 
802366 
023332 
002436 
023506 
802426 
802436 

802416 

002400 
040200 
002426 
082436 
082416 
084640 
014024 



802376 
002400 



;i»»».««.»«»»< 

;»TEST 30 

J |»»#»##«»«»»^ 

TST30! SCOPE 
HOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
JSR 
.WORD 
JSR 
8PUSH 
(PUSH 
»»UL 
8P0PX 

HOV 

LDFPS 

LDD 

LDD 

LDD 

LDFPS 

HOV 



EXERCISE HuLD. 

»MRETI0,EXPFEA 

•804640>SFPS 

SFEC 

>FEA 

FPS 

FEC 

FEA 

PC,RAHDL4 

LONUH.HINUH 

R4,SP0LSH 

,LONUM 

,HINUM 

,ANS2 

tFPS,p0 

•040200 

LONOM,AC0 

HINUM.ACl 

ANS2/AC3 

•804640 

•,«6.SLPADR 



OVERFLOW AND UNDERt LOW INTERRUPTS OFF, TRUNCATE HODE 

;ADDR OF INSTR BEING TESTED 
;SET IE BITS IN FORTRAN ANSWER 
(CLR FORTRAN FEC 
;CLR FORTRAN FEA 
jCLR FPU FPS BUFFER 
;CLR FPU FEC BUFFER 
[CLR FPU FEA BUFFER 
[GET RANDOM INPUT DATA 

(ENTER POLISH MODE 
(PUSH 4 WORDS ON STACK (LONUM) 
(PUSH 4 WORDS ON STACK (HINUH) 
(ADDRESS OF FORTRAN MULTIPLY 
(POP 4 WORDS AND EXIT POLISH MODE 

(DISPLAY FLOATING POINT STATUS 

(SET FD OF FPS ONLY. INTERRUPT DISABLE 

(LOAD AC0 WITH A RANDOM NUMBER 

(LOAD ACl WITH A RANDOM NUMBER 

(LOAD AC3 WITH THE SUM 

(TURN INTERRUPTS ON, EXCEPT OVER AND UNDERFLOW 

(RESET LOOP ADDRESS 



002362 
082362 



802406 
000001 
802412 
882410 
002486 
002486 



LDD AC0,AC2 (LOAD AC0 INTO AC2 

MRET18I MULD AC1,AC2 (MULTIPLY ACl BY AC2 

STEPS FPS (STORE FLOATING POINT STATUS 

CMP FPS,SFPS (CHECK FPS 

BEO MTST10 (BRANCH IF OK 

STD AC2,ANS1 (SAVE FPU ANSWER 

ERROR 21 ;FPS ERROR 

MTST18: CHPD AC2,AC3 (COMPARE FPU ANSWER TO FORTRAN ANSWER 

CFCC (COPY FLOATING CONDITION CODES 

BF.0 MEND10 (ANSWERS CHECK 
(COMPENSATE FOR FORTRAN INACCURACIES. 

■ - (SAVE FPU ANSWER 

(INCREMENT FPU ANSWER 



STD 


AC2,ANS1 


ADD 


•1,AHS1«6 


ADC 


ANSlt4 


ADC 


ANS142 


ADC 


ANSI 


CMPD 


ANS1,AC3 


CFCC 




BFO 


HEND10 



(CHECK ANSWERS AGAIN 

(COPY FLOATING CONDITION CODES 

(BRANCH IF OK 
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(DECREMENT FPU ANSWER 



(CHECK ANSWERS AGAIN 

(COPY FLOATING CONDITION CODES 

(BRANCH IF OK 

(SAVE FPU ANSWER 

(FPU AND FORTRAN DISAGREE 

[CLEAR FPP FPS BUFFER 



2194 


814116 


162737 


000002 002414 


2195 


814124 


805637 


002412 


2196 


814130 


809637 


802418 


2197 


814134 


805637 


082406 


2198 


814140 


173737 


882486 


2199 


814144 


178880 




2280 


814146 


001403 




2201 


814150 


174237 


802406 


2202 


814154 


104812 




2203 








2204 


814156 


805037 


082362 


2205 









SUB 


•2,ANS1*6 


SBC 


ANSU4 


SBC 


ANS1«2 


SBC 


ANSI 


CMPD 


ANS1.AC3 


CFCC 




BEQ 


MEND10 


STD 


AC2,ANS1 


ERROR 


12 


MENDlei CLR 


FPS 
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2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2239 

2260 

2261 



014162 
014164 
014172 
014200 
914204 
014210 
nl4214 
014220 
014224 
014230 
014234 
014240 
014244 
014250 
P14252 

014256 
014262 
•14266 
014272 
014276 
014302 
014306 



014314 
014316 
014320 
014324 
014332 
014334 
014340 



000004 
012737 
012737 
005037 
005037 
005037 
005037 
005037 
004737 
002426 
004437 
023510 
023510 
026364 
023540 

0137019 
170127 
172437 
172537 
172737 
170127 
012737 



014316 002376 

007400 002400 

002402 

002404 

002362 

002364 

002366 

023342 

002436 

023506 

002426 

002436 

002416 

002400 
040000 
002426 
002436 
002416 
007400 
014314 001110 



I«TEST 31 

TST31! SCOPE 
MOV 
MOV 
CLP 
CLR 
CLP 
CLR 
CLR 
JSR 
,WORD 
JSB 
SPUSH 
SPUSH 
SDIV 
SPOPX 

MOV 

LDKPS 

LOF 

LDF 

LOF 

LDFPS 

MOV 



EXERCISE DIVF, ALL INTERRUPTS ON, ROUNDING "ODE 



172600 

174601 

■70237 002362 

023737 002362 002400 

001403 

174237 002406 

104016 



DREll; 



014342 005737 002400 

•14346 100014 

014350 170337 002364 



002364 002402 



002366 002404 1$: 



014354 023737 

014362 001401 

014364 104026 

914366 023737 

014374 001401 

014376 104026 

014400 173702 

014402 170000 

014404 001416 



014406 174237 002406 

014412 162737 000001 002410 

014420 005637 002406 



IDRET1 ,RXPFEA 

1007400, SFpS 

6FEC 

SFEA 

FPS 

FFC 

FEA 

PC,RANDL2 

LONUM.HINUM 

R4,SP0LSH 

,LONUM 

,HINU" 

,ANS2 

SFPS,P0 

•040000 

LONUM,AC0 

HIhUM,AC1 

ANS2,AC3 

1007400 

I .+b, $LPADR 



;ADDF OF INSTR BEING TESTED 
;StT IE BITS IN FORTRAN ANSWER 
;CLP FORTRAN FEC 
jCLR FORTRAN FEA 
;CLR FPU FPS BUFFER 
;CLP FPU FEC BUFFER 
;CLR FPU FEA BUFFER 
;GET RANDOM INPUT DATA 



[ENTER POLISH MODE 

jPUSH 2 NOBDS ON STAC! 

jPUSH 2 NORDS ON SIAc[ 

[ADDRESS OF FORTRAN DIVIDE 

;POP 2 kORDS AND EXIT POLISH MODE 



AC* (LONUH) 
Acjt (HINUM) 



[DISPLAY FLOATING POIW 
BlS 



STATUS 
•SET INTERRUPT DISABL^ 
[LOAD AC0 KITH A PAND'OM NUMBER 
[LOAD ACl WITH A RANDOM NUMBER 
[LOAD ACS WITH THE SUM 
[TURN INTERRUPTS ON 
[RESET LOOP ADDRESS 



[LOAD ACe INTO AC2 

[DIVIDE ACl INTO AC2 

[STORE FLOATING POINT STATUS 

[CHECK FPS 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPS ERROR 

[ERROR BIT SET 7 

[NO, OONT GET FEC/FEi 

[YES, CHECK STATUS 

[CHECK THE FLOATING EXCEPTION CODES 
[BPAMCH IF OK 
[FEC IS WRONG 

[CHECK FLOATING PC 

[BRANCH IF OK 

[WRONG ADDRESS IN fEJA 

CMPF AC2,AC3 [COMPARE FPU ANSWER .TO FORTRAN ANSWER 

CFCC [COPY FLOATING CONDITION CODES 

BEO DENDl [ANSWERS CHECK 

[COMPENSATE FOR FORTRAN INACCURACIES. 

STF AC2,ANS1 [SAVE FPU ANSWER 

SUB I1,ANS1*2 [DECREMENT FPU ANSWER 

SBC ANSI 



LDF 


AC0,AC2 


DIVF 


AC1,AC2 


STEPS 


FPS 


CMP 


FPS,SFPS 


BEU 


DERRl 


STF 


AC2,ANS1 


ERROR 


16 


TSI 


SFPS 


BPL 


DTSTl 


STST 


FEC 


CMP 


FEC, SPEC 


BEO 


IS 


ERROR 


26 


CMP 


FFA,8FEA 


BEO 


DTSTl 


ERROR 


26 
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DOFPDB.PIl 



2262 

2263 

2264 

2265 

2266 

2767 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2)15 

2316 

2317 



014424 
014430 
014432 
014434 
014440 



173737 
170000 
001401 
174237 
104013 



014442 005037 002362 



U14446 
014450 
014456 
014464 
014470 
014474 
014500 
014504 
014510 
014514 
014520 
014524 
014530 
C14534 
014536 

014542 
014546 
014552 
014556 
014562 
014566 
014572 



014600 
014602 
014604 
014610 
014616 
014620 
014624 

014626 
•14632 
■14634 

014640 
•14646 
014650 



00^004 
012737 
012737 
005037 
005037 
005037 
005037 
005037 
004737 
002426 
004437 
023510 
023510 
026364 
02354? 

01370^ 
170127 
172437 
172537 
172737 
170127 
012737 



172600 
174601 
170237 
B23737 
•01403 
174237 
104022 



CMPF 


ANS1,AC3 


CFCC 




BEO 


DENDl 


STF 


AC2>ANS1 


ERROR 


13 



[CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

[CLEAR FPP FPS BUFFER 



014602 
007600 
002402 
002404 
002362 
002364 
002 366 
023332 
002436 
023506 
002426 
002436 

002416 

002400 
040200 
002426 
002436 
002416 
007600 
014600 



002362 
002362 



002376 
002400 



•05737 002400 

100014 

170337 002364 



023737 
•01401 
104032 



002364 002402 



EXERCISE UIVO, ALL INTERRUPTS ON, ROUNDING MODE 



[ADDR OF INSTR BEING TESTED 
[SET IE BITS IN FORTRAN ANSWER 
[CLR FORTRAN FEC 
[CLR FORTRAN FEA 
[CLR FPU FPS BUFFER 
[CLR FPU FEC BUFFER 
[CLR FPU FEA BUFFER 
[GET RANDOM INPUT DATA 

JenTEK polish MODE 

[PUSH 4 WORDS ON STACK (LONUM) 

[PUSH 4 WORDS ON STACK (HINUM) 

[ADDRESS OF FORTRAN DIVIDE 

[POP 4 WORDS AND EXIT POLISH MODE 

[DISPLAY FLOATING POIMT STATUS 

(SET FID AND FD 

[LOAD AC0 WITH A RANDOM NUMBER 

[LOAD ACl WITH A RANDOM NUMBER 

(LOAD AC3 WITH THE SUM 

[TURN INTERRUPTS ON 

[RESET LOOP ADDRESS 



[LOAD AC0 INTO AC2 

[DIVIDE ACl INTO AC2 

[STORE FLOATING POINT STATUS 

[CHECK FPS 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPS ERROR 

[ERROR BIT SET 7 

[NO, DONT GET FEC/FEA 

[YES, CHECK STATUS 

[CHECK THE FLOATING ExCFPTION CODES 
(BRANCH IF OK 
[FEC IS WRONG 



rsT32: SCOPE 




MOV 


•DREI2,EXPFEA 


HOV 


•007600, SFPS 


CLR 


SPEC 


CLR 


SFEA 


CLR 


FPS 


CLR 


FEC 


CLR 


EFA 


JSR 


PC,RANDL4 


.WORD 


LONUM, HINUM 


JSR 


R4,SP0LSH 


tPUSH 


, LONUM 


$PUSH 


, HINUM 


SDIV 




SPOPX 


,ANS2 


MOV 


srps.R0 


LDFPS 


•040200 


LDD 


LONUM, AC0 


LDD 


HINUM, ACl 


LDD 


ANS2,AC3 


LDFPS 


•007600 


MOV 


l.+6,$LPADR 


LDD 


AC0,AC2 


DRET2: DIVD 


AC1,AC2 


STFPS 


FPS 


CMP 


FPS, SFPS 


BED 


DEPR2 


STD 


AC2,ANS1 


ERROR 


22 


DERR2I TST 


SFPS 


BPL 


DTST2 


STST 


FEC 


CMP 


FECSFEC 


BEO 


It 


ERROR 


32 
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2318 
2319 
2320 
2321 
2322 
2323 
232« 
2325 
2326 
2327 
2328 
2329 
3330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2 3 40 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
3364 
2365 
2366 
2367 
236S 
2369 
2370 
2371 
2372 
2373 



V14652 V33737 
al466e 001401 
014662 104032 



014664 
014666 

ri4670 

014672 
014676 
014704 
014710 
014714 
014720 
914734 
014726 
014730 
014734 



173702 
170000 
001422 

174237 
162737 
005637 
005637 
005637 
173737 
170000 
001403 
174237 
104014 



003366 003404 is: 



003406 
000001 
0O2412 
003410 
003406 
002406 



CMP 


FEA.SFEA 


;CHECK Floating pc 


BEU 


DT5T2 


;BRANCH IF OK 


ERROR 


52 


jrfRONG ADDRESS IN FEA 



014736 005037 003363 



CMPD • AC3,AC3 ;COMPARE FPU ANSWER TO FORTRAN ANSWER 

QfQQ jCOin FLOATING CONDITION CODES 

BEQ DEND3 ;ANSWERS CHtCK 

jCOMPENSATF FOB FORTRAN INACCURACIES. 

- ;SAVE FPU ANSWER 

;DECREHENT FPU ANSWER 



;CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

[SAVE FPU ANSWER 

•FPU ASD FORTRAN DISAGREE 

[CLEAR FPP FP5 BUFFER 



•TESt*33"******EXEbCISF*DIVf"ovErFUOW and. UN?EbFL0W INTERRUPTS OFF, ROUNDING MODE 



STD 


AC2,ANS1 


SUB 


»l,A»Sl+6 


SBC 


AHSK4 


SBC 


ANS1«3 


SBC 


ANSI 


CMPD 


ANS1,«C3 


CFCC 




BEQ 


DEND2 


STD 


AC2,ANS1 


ERROR 


14 


DbHD3: CLR 


IPS 



014742 
014744 
014752 
014760 
014761 
014770 
014774 
015000 
015004 
015010 
015014 
015020 
015034 
015030 
•15033 

015036 
015042 
015046 
015052 
015056 
015062 
015066 



000004 
012737 
012737 
005037 
005037 
005037 
005037 
005037 
0047 37 
002436 
004437 
023519 
023510 
026364 
033540 

013700 
170127 
173437 
172537 
173737 
170127 
012737 



015876 
004400 
002403 
003404 
002362 
002364 
003366 
033342 
003436 
023506 
003436 
003436 

003416 

003400 



002376 
002400 



002426 
003436 
003416 
004400 
015074 001110 



[•••««««»«•««< 

TST33! SCOPE . 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
JSR 
.WORD 
JSR 
SPUSH 
8PUSH 
SDIV 
SPOPX 

MOV 

LOFPS 

LDF 

LDF 

LDF 

LDFPS 

MOV 



IDRET3rEXPFE» 
1004400, SFPS 

SPEC 

SFEA 

EPS 

FEC 

FEA 

PC,RANDL2 

LONUM.HINUM 

R4,$P0LSH 

,LONUM 

,HINUM 

,ANS2 

SFPS,P0 

4040000 

LONOH,AC0 

HINUH.ACl 

ANS2.aC3 

t004400 

• ,46, 8LPA0R 



[ADDR OF inSTR BEING TESTED 

[SET IE BITS IN FORTRAN ANSWER 

[CLR FORTRAN FEC 

[CLR FORTRAN FEA 

[CLR FPU FPS BUFFER 

[CLR FPU FEC BUFFER 

[CLR fPU FEA BUFFER 

[GET RANDOM INPUT DATA 

IeNTER POLISH MODE 

[PUSH 2 WORDS ON STACK (LONUH) 

[PUSH 2 WORDS ON STACK (HINUM) 

[ADDRESS OF FORTRAN DIVIDE 

[POP 3 WORDS AND EXIT POLISH MODE 

[DISPLAY FLOATING POINT STATUS 

[SET FID 

[LOAD AC0 WITH A RANDOM NUMBER 

[LOAD ACl WITH A RANDOM NUMBER 

[LOAD AC3 WITH THE SUM 

JtURN INTERRUPTS ON, EXCEPT OVERFLOW AND UNDERFLOW 

'(RESET LOOP ADDRESS 



015074 173600 
015076 174601 
015100 170237 



LDF 

DUF 

STEPS 



ACB,AC2 
AC1.AC2 
FPS 



[LOAD AC0 INTO AC2 

[DIVIDE ACl INTO AC2 

[STORE FLOATING POINT STATUS 



FPU ADD/SUB/MUL/OIV RANDOM EXER HAClll 27(1006) 04-HA1.77 18S18 PAGE 49 

DOFPDB.Ptl 04.MAy-77 I7l30 133 EXERCISE DIVF, OVERFLOW AND UNDERFLOW INTERRUPTS OFF, 



SEQ 0050 
ROUNDING MODE 



2374 
2375 
2376 
2377 
2378 
2379 
3380 
2381 
2382 
3383 
3384 
3385 
3386 
3387 
2388 
2389 
2390 
3391 
3393 
3393 
2394 
2395 
2396 
2397 
2398 
2399 
3400 
3401 
3402 
3403 
2404 
2405 
2406 
2407 
2408 
3409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
3418 
3419 
3430 
3431 
3433 
3423 
2434 
2425 
2436 
2427 
2438 
3429 



«I5I04 023737 003362 002400 

015112 001403 

015114 174237 002406 

015120 104016 



015122 005737 

015136 100014 

01513? 170337 

015134 023737 

015142 001401 

015144 104036 

015146 033737 

015154 001401 

015156 104036 

015160 173702 

015162 170000 

015164 001416 



CMP FP5.SFPS 

BEO DERR3 

STF AC2fANSl 

ERROR 16 



015166 
015172 



174237 
162737 



015200 005637 
015304 173737 



015310 
015313 
015314 
01533i1 



170000 
001403 
174337 
104013 



015232 005037 



015226 
015330 
015236 
015244 
015250 
015254 
015360 
015364 
015270 
•15374 
015300 
015304 
015310 
015314 
•15316 

015323 
015326 



003400 




DERR3: 


TSI 
BPL 


SFPS 
DTST3 


002364 






STST 


FEC 


002364 


093402 




CMP 
BEU 
ERROR 


FECSFEC 

IS 

26 


002366 


0924<(4 


is: 


CMP 
BED 
ERROR 


FEA, SFEA 

DTST3 

26 






DTST3! 


CMPF 
CFCC 
BEO 


AC2,AC3 
DEND3 








[COMPENSATE FOR F 


003406 






STF 


AC2,ANS1 


000001 


002410 




SUB 


I1,ANS1*2 


002406 






SBC 


ANSI 


003406 






CMPF 
CFCC 

BEQ 


ANS1,AC3 

DEND3 


002406 






STF 

ERROR 


AC2,AHS1 
13 


003362 




0END31 


CLR 


FPS 



[CHECK FPS 
[BRANCH IF OK 
[SAVE FPU ANSWER 
[FPS ERROR 

[ERROR BIT SET 7 

[NO, DONT GET FEC/FEA 

[YES, CHECK STATUS 

[CHECK THE FLOATING EXCEPTION CODES 
[BRANCH IF OK 
[FEC IS WRONG 

[CHECK FLOATING PC 

[BRANCH IF OK 

[WRONG ADDRESS IN FEA 

[COMPARE FPU ANSWER TO FORTRAN ANSWER 

[COPY FLOATING CONDITION CODES 

[ANSWERS CHECK 

INACCURACIES. 

[SAVE FPU ANSWER 

[DECREMENT FPU ANSWER 

[CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

[CLEAR FPP FPS BUFFER 



B12737 
012737 
005037 
095037 
B05037 
095037 
005037 
004737 
002426 
004437 
023510 
023519 
026 364 
023540 

013700 
170127 



015362 
004600 
002402 
002404 
002362 
002364 
002366 
023333 
003436 
033506 
003436 
003436 

002416 

002400 
040200 



0K3376 
003400 



[ [««««•••»•••«' 

[•TEST 34 
[[•••••••••••• 

TST34: SCOPE 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
JSR 
.WORD 
JSR 
• PUSH 
SPUSH 
SDIV 
SPOPX 

MOV 

LDFPS 



EXERCISE DIVD. OVERFLOW AND UNDERFLOW INTERRUPTS OFF, ROUNDING MODE 



IDRET4,EXPFEA 

•004600. SFPS 

SFEC 

SFEA 

FPS 

FEC 

FEA 

PC,RANDL4 

LONUM, HINUM 

R4,SP0LSH 

, LONUM 

, HINUM 

,ANS2 

8FPS,R0 
•040200 



[ADDR OF INSTR BEING TESTED 
[SET IE BITS IN FORTRAN ANSWER 
(CLR FORTRAN FEC 
[CLR FORTRAN FEA 
(CLR FPU FPS BUFFER 
[CLR FPU FEC BUFFER 
(CLR FPU FEA BUFFER 
[GET RANDOM INPUT DATA 

! 

(ENTER POLISH MODE 

(PUSH 4 WORDS ON STACK (LONUM) 

[PUSH 4 WORDS ON STACK (HINUM) 

[ADDRESS OF FORTRAN DIVIDE 

(POP 4 WORDS AND EXIT POLISH MODE 

[DISPLAY FLOATING POINT STATUS 
[SET FID AND FD 



FPU AOD/SUB/HUL/OIV RUNDOH EXEB HACYtl 27(lHa6) P4-MAY-77 IBllB P»GE 50 .... „„„_», „ct 

a4.m,.77 ,7,3a 134 exercise OIVD, OVEBFLOt. AND UNDEBFLOh INTEBRUPIS OFF, 



DOrPDB.PIl 



SEQ 8051 
ROUNDING MODE 



2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

24)9 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2473 

2473 

2474 

2475 

J476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2495 



«I5332 
015336 
015342 
015146 
015352 



01536;> 
015362 
•15364 
015370 
015376 
015400 
015404 



172437 
172537 
172737 
170127 
012737 



002126 
002436 
002416 



172600 
174601 
170337 
023737 
001403 
174237 
104022 



015406 005737 

015412 100014 

015414 170337 

91542B 023737 

015426 001401 

015430 104032 

015432 023737 

01544^ 001401 

015442 104032 



015444 
015446 
015450 

015452 
815456 
015464 
015470 
015474 
015500 
015504 
015506 
01551U 
015514 



015360 001110 



002362 
002362 

002406 

002400 
002364 
002364 



002366 002404 It 



173702 
170000 
001422 

174237 
162737 
005637 
005637 
005637 
173737 
17000d 
001403 
174237 
104014 



002406 
000001 
003412 
002410 
002406 
002406 



UDD 


LOKUM.ACB 


LDD 


HINUM.ACl 


LDD 


ANS2,>C3 


LDFPS 


1004600 


MOV 


l.f6r$LPADR 


LDD 


AC0,AC2 


DRET4I DIVD 


AC1.AC2 


STFPS 


FPS 


CMP 


FPS,«rPS 


BEO 


DERR4 


STD 


AC2,ANS1 


ERROR 


22 


DERB4! TST 


SFPS 


BPb 


DTST4 


STST 


FEC 


CMp 


FECSFfcC 


BEO 


1$ 


ERROR 


32 


1»: CMP 


f EA.SFES 


BEIi 


CTST4 


ERROR 


32 


DTST4I CMPD 


AC2,Ar3 


CFCC 




BEQ 


DEND4 


(COMPENSATE EOF fORTRAN 


STD 


AC2.ANSI 


SUB 


»1,ANS1»6 


SRC 


ANSIt4 


SBC 


ANS1*2 


SBC 


ANSI 


CMPD 


ANS1,AC3 


CFCC 




BEO 


DEND4 


STD 


AC2.ANS1 


ERROR 


14 



;LOAD AC0 NITH A RANDOM NUMBER 

;l.OAD ACl WITH A RANDOM NUMlEB 

JLOAD AC3 WITH THE SUM ' 

;TUBN INTERRUPTS ON, EXCEP* OVER AND UNDEBFIiOW 

; RESET LOOP ADDBESS 



015516 005037 002362 



DEND4: CLB 



,-LOAD ACB INTO AC2 

;DIVIDE ACl INTO AC2 

;STOBE FLOATING POINT STATUS 

;CHECK (PS 

[BRANCH IF OK 

[SAVE FPU ANSWER 

;EP5 EBBOB 

;ERBUB BIT SET ? 

;N0. DONT GET FEC'FEA 

;YES, CHECK STATUS 

[CHECK THE FLOATING EXCEPTION CODES 
[BRANCH IP OK 
[FEC IS MRONG 

[CHECK'FLOATING pC 

[BRANCH IF OK 

[URONG ADDRESS IN FEA 

[COMPARE FPU ANSWEB TO FORTRAN ANSUER 

[COPY FLOATING CONDITION CODES 

[ANSHERS CHECK 

INACCURACIES. 

[SAVE FPU ANSWER 

[DECREMENT FPU ANSWER 



[CHECK ANSWEBS AGAIN 

[COPY FLOATING CONDITION CODES 

[BBANCH IF OK 

[SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

[CLEAR Fpp FPS BUFFER 



015522 
015524 
015532 
015540 
015544 



000004 
012737 
012737 
095037 

005937 



[•TEST 35 EXERCISE OIVF, ALL INTERRUPTS ON, TRUNCATE MODE 
TST35: SCOPE 



015656 
007440 

002402 
002404 



002376 

002400 



MOV 


IDBET5,EXPFEA 


MOV 


•007440, SFPS 


CLR 


SFEC 


CLB 


SFEA 



[ADDR OF INSTR BEING TESTED 
(SET IE BITS IN FORTRAN ANSWER 
[CLR FORTRAN FEC 
[CLR FORTRAN FEA 
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TRUNCATE MODE 



2486 


01555a 


005037 


002362 




CLP 


FPS 


jCLR FPU FPS BUFFER 


2487 


015554 


005037 


003364 




CLB 


FEC 


[CLR FPU FEC BUFFER 


2488 


015560 


005037 


003366 




CLR 


FEA 


[CLR FPU FES BUFFER 


2489 


015564 


0047)7 


023342 




JSR 


PC,RANDL2 


[GET RANDOM INPUT DATA 


2490 


015570 


002426 


002436 




.WORD 


LONUM.HTNUH 


[ 


2491 


015574 


004437 


023506 




JSR 


P4,SP0LSM 


(ENTER POLISH MODE 


2492 


915600 


023510 


002436 




SPUSH 


,LONUM 


(PUSH 2 WORDS ON STACK (LONUM) 


2493 


215604 


02351B 


002436 




SPUSH 


,HINUM 


(PUSH 2 WORDS ON STACK (HINUM) 


2494 


015610 


026364 






sniv 




(ADDRESS OF FORTRAN DIVIDE 


2495 


015612 


02154* 


002416 




SPOPX 


,ANS2 


[POP 2 WORDS AND EXIT POLISH MODE 


2496 
2497 


015616 


013700 


002400 




MOV 


SFFS,R0 


[DISPLAY FLOATING POINT STATUS 


2498 


015622 


170127 


040000 




LDFPS 


4040000 


[SET FID 


2499 


015636 


(73437 


002426 




LDF 


LONUH,AC0 


(LOAD AC0 WITH A RANDOM NUMBER 


2500 


015632 


173537 


002436 




LDF 


HINUM.ACl 


(LOAD ACl WITH A RANDOM NUMBER 


2501 


015636 


173737 


002416 




LDf 


AN52,AC3 


(LOAD AC3 WITH THE SUM 


2502 


015642 


170127 


007440 




LDFPS 


1007440 


[TURN INTERRUPTS ON 


2503 


015646 


012737 


015654 


001110 


HOV 


t .»6,SLPADR 


[RESET LOOP ADDRESS 


2504 
















2505 










1 •••••( 






2506 
















2507 


015654 


172600 






LDF 


AC0,AC2 


[LOAD AC0 INTO AC2 


2508 


015656 


174601 




DRET5: 


DIVF 


AC1,AC2 


[DIVIDE ACl INTO AC2 


2509 


015660 


170237 


002362 




STFPS 


FPS 


[STORE FLOATING POINT STATUS 


2510 


015664 


023737 


002362 


002400 


CMP 


FPS, SFPS 


[CHECK FPS 


2511 


015672 


001403 






BEO 


DERB5 


[BRANCH IF OK 


2512 


015674 


174237 


003406 




STF 


AC2,ANS1 


[SAVE FPU ANSWER 


2513 


015700 


104016 






ERROR 


16 


(FPS EBBOB 


251 4 

2515 


015703 


005737 


002400 


DERR5; 


TST 


SFPS 


[ERROR BIT SET 7 


2516 


B15706 


100014 






BPL 


DTST5 


[NO, DONT GET FEC/FEA 


2517 


P15710 


170337 


002364 




STST 


FFC 


[YES, CHECK STATUS 


2518 
2519 


015714 


023737 


002364 


003402 


CMP 


FEC, SFEC 


[CHECK THE FLOATING EXCEPTION CODES 


2520 


015732 


001401 






BEQ 


IS 


(BRANCH IF OK 


2521 


015734 


104026 






ERROR 


26 


(FF.C IS WRONG 


2522 
2523 


015736 


023737 


002365 


002404 1$: 


CMP 


FEA.SFEA 


[CHECK FLOATING pC 


2524 


015734 


001401 






BEQ 


DTST5 


[BRANCH IF OK 


2525 


015736 


104026 






ERROR 


26 


[WRONG ADDRESS IN FEA 


2526 
2527 


015740 


173702 




DTST5: 


CMPF 


AC2,AC3 


[COMPARE FPU ANSWER TO FORTRAN ANSWER 


2528 


015742 


170000 






CFCC 




(COPY FLOATING CONDITION CODES 


2529 


015744 


B01427 






BEQ 


DEHD5 


[ANSWERS CHECK 


2530 










[COMPENSATE FOB FORTRAN 


INACCURACIES. 


25)1 


015746 


174237 


002406 




STF 


AC2,AWS1 


(SAVE FPU ANSWER 


2532 


015752 


062737 


000001 


002410 


ADD 


•l,ANSl*2 


(INCREMENT FPU ANSWER 


2533 


015760 


005537 


002406 




ADC 


ANSI 




2534 


015764 


173737 


002406 




CMPF 


ANS1,AC3 


[CHECK ANSWERS AGAIN 


2535 


015770 


170000 






CFCC 




[COPY FLOATING CONDITION CODES 


2536 


015772 


001414 






BEQ 


DCND5 


[BRANCH IF OK 


2537 


015774 


162737 


000003 


002410 


SUB 


I2,ANS1«2 


[DECREMENT FPU ANSWER 


2538 


016002 


005637 


003406 




SBC 


ANSI 




2539 


016006 


173737 


002406 




CMPF 


ANSliAC) 


[CHECK ANSWERS AGAIN 


2540 


016012 


170000 






CFCC 




(COPY FLOATING CONDITION CODES 


2541 


016014 


001403 






BEQ 


DEND5 


[BRANCH IF OK 
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TRUNCATE MODE 



1942 
2S43 

2S44 
2S4S 
2946 
2947 
254« 
2S49 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2959 
2560 
2961 
2962 
2963 
2964 
2565 
2966 
2967 
256S 
2969 
2570 
2571 
2572 
2973 
2574 
2575 
2576 
2577 
2579 
2919 
2990 
2981 
2992 
299 3 
2984 
2989 
2986 
2997 
2988 
2999 
2990 
2991 
2992 
2993 
2994 
2595 
2996 
2597 



VI6016 
116022 



174237 
104013 



•16024 005037 002362 



STF 
ERROR 



DENDSl CLR 



AC2(ANS1 (SAVE FPU ANSWER 

13 JFPU AND FORTRAN DISAGREE 

FPS (CLEAR FPP FPS BUFFER 





•00004 






II 

(•TEST 


36 


EXERCISE DIVD, 


ALL INTERRUPTS ON, TRUNCATE MODE 


•16030 


TST361 


SCOPE 






•16032 


•12737 


016164 


002376 




MOV 


tDRET6,EXPFEA 


,ADDR OF INSTR BEING TESTED 


016040 


012737 


007640 


002400 




HOV 


1007640. SFPS 


jSET IE BITS IN FORTRAN ANSNEB 


•16046 


•09037 


002402 






CLP 


»FEC 


,CLR FORTRAN FEC 


•16052 


•09037 


002404 






CLR 


»FEA 


(CLR FORTRAN FEA 


•16096 


005037 


002362 






CLR 


FPS 


;CLR FPU FPS BUFFER 


•16062 


009037 


•02364 






CLR 


FEC 


;CLB FPU FEC BUFFER 


•16066 


•09037 


002366 






CLR 


FEA 


(CLR FPU FEA BUFFER 


•16072 


004737 


023332 






JSR 


PC,RA«DL4 


(GET RANDOM INPUT DATA 


•16076 


002426 


002436 






.WORD 


LONUH.HINUM 


{ 


•16102 


004437 


023506 






JSR 


R4,8POLSH 


(ENTER POLISH MODE 


•16106 


•23918 


002426 






JPUSH 


,LONUM 


(PUSH 4 WORDS ON STACK CLONUH) 


•16112 


023510 


002436 






SPUSH 


,HINUM 


[PUSH 4 WORDS ON STACK (HINUM) 


•16116 


026364 








SDIV 




(ADDRESS OF FORTRAN DIVIDE 


•16120 


023548 


002416 






»POPX 


f ANS2 


(POP 4 WORDS AND EXIT POLISH MODE 


•16124 


013700 


002400 






HOV 


«FPS,R0 


(DISPLAY FLOATING POINT STATUS 


•16130 


170127 


040200 






LDfPS 


1040200 


(SET FID AND FD 


•16134 


172437 


002426 






LDD 


LONUH,AC0 


(LOAD AC0 WITH A RANDOM NUMBER 


•16140 


172537 


002436 






LOD 


HINUM,AC1 


(LOAD ACl WITH A RANDOM NUMBER 


•16144 


172737 


002416 






LDD 


ANS2,>C3 


(LOAD AC3 WITH THE SUM 


•16190 


170127 


007640 






LDFPS 


•007640 


(TURN INTERRUPTS ON 


•16154 


•12737 


016162 


001110 




MOV 

f »!>•»»< 


•.t6r9LPADR 


(RF.SET LOOP ADDRESS 



•16162 
•16164 
•16166 
•16172 
•16280 
•16202 
•16206 

•16210 
•16214 
•16216 

•16222 
•16230 
•16232 

•16234 
•16242 
•16244 



002362 
002362 



172600 
174601 
170237 
•23737 
•01403 
174237 
104022 



•09737 002400 

100014 

170337 002364 



002364 002402 



023737 
•01401 
104032 

023737 002366 002404 

•01401 

104032 



LDD 

DIVD 

STFPS 

CHP 

BEQ 

STD 

ERROR 

TST 
BPL 

STST 

CMP 
BEQ 
ERROR 

CMP 
BEO 
ERROR 



AC0,AC2 

AC1<AC2 

FPS 

FPS,$FPS 

DERR6 

AC2,ANSI 

22 

«FPS 

DTST6 

FEC 

FEC. « FEC 

IS 

32 

FEA.SFEA 

DT5T6 

32 



(LOAD AC0 INTO AC2 

(DIVIDE ACl INTO AC2 

(STORE FLOATING POINT STATUS 

(CHECK FPS 

[BRANCH IF OK 

(SAVE FPU ANSWER 

(FPS ERROR 

(ERROR BIT SET 7 

[NO, DONI GET FEC^FEA 

(YES. CHECK STATUS 

(CHECK THE FLOATING EXCEPTION CODES 
(BRANCH IF OK 
[FEC IS WRONG 

[CHECK FLOATING PC 

(BRANCH IF OK 

[WRONG ADDRESS IN FEA 
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TRUNCATE MODE 



2998 

2999 

2600 

2601 

2602 

260 3 

2604 

2609 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

26)9 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2638 

2629 

2630 

263) 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2658 

265) 

2652 

2653 



•16246 
•16250 
016252 

0)6254 
•16260 
•16266 
•16272 
•16276 
•16302 
•16306 
016310 
016312 
016320 
016324 
016330 
016334 
016340 
0)6342 
0)6344 
0)6350 



173702 
170000 
00)437 

174237 
062737 
085537 
005537 
•05537 
173737 
170000 
00)420 
162737 
005637 
005637 
•09637 
173737 
170003 
08)403 
)74237 
1040)4 



002406 
00000) 
002412 
002410 
002406 
002406 



002412 
002410 
002406 
002406 



016352 005037 002362 



016356 
016360 
016366 
016374 
016400 
0)64^4 
0)64)0 
•)64)4 
0)6420 
0)6424 
016430 
0)6434 
0)6440 
016444 
016446 

016452 
•16456 
•16462 
016466 
016472 
•16476 
016502 



000001 
012737 
012737 
•99037 
009037 
009037 
005037 
005837 
004737 
002426 
004437 
0235)0 
0235)0 
026364 
023548 

0)3700 
170127 
172437 
172537 
172737 
170)27 
012737 



DTST6! CHPO 


AC2,AC3 


CFCC 




BEQ 


DEND6 


[COMPENSATE f OB FORTRAN 


STD 


AC2,ANS1 


ADD 


■),ANS)46 


ADC 


ANS]«4 


ADC 


ANS)t2 


ADC 


ANSI 


CHPD 


ANSI.AC3 


CFCC 




BFO 


DEND6 


SUB 


•2,ANS)t6 


SBC 


ANS)«4 


SBC 


ANS)*9 


SBC 


ANS) 


CMPD 


ANS),>C3 


CFCC 




BEQ 


DEND6 


STD 


AC2,A>1S1 


ERROR 


)4 



(COMPARE FPU ANSWER TO FORTRAN ANSWER 

[COPY FLOATING COHDlIiaH CODES 

[ANSWERS CHECK 

INACCURACIES. 

(SAVE FPU ANSWER 

(INCREMENT FPU ANSWER 



(CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION COOES 

[BRANCH IF OK 

[DECREMENT FPU RNSWtH 



[CHECK ANSWERS AGAIN 

•COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 



(CLEAR FPP FPS BUFFER 



016512 
00444(1 
002402 
002404 
002362 
002364 
002366 
023342 
002436 
023506 
002426 
0024 36 

002416 

002400 



002376 
fl0240« 



002426 
002436 
002416 
004440 
016510 001110 



[[••••••••••••< 

[•TEST 37 
[[•.•••••«••••' 
TST37: SCOPE 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
JSP 
.WORD 
JSR 

• PUSH 

• PUSH 
IDIV 

• POPX 

MOV 

LDFPS 

LDF 

LDF 

LDF 

LDFPS 

MOV 



EXEBCISE DIVF, OVERFLOW AND UNDERFLOW INTERRUPTS OFr, TRUNCATE f'OIlE 



IDBET7,FXPFEA 
I0<I4440.SFPS 

• FEC 

• FEA 
FPS 
FEC 
FEA 

PC,RANDL2 
LONUM.HTNUM 
R4,^P0LSH 
.LONUM 
.HINUM 

,ANS2 

tFPS,B0 

1040000 

LONUM.AC0 

HINUM, AC! 

ANS2,AC3 

1004440 

•.♦6>«LPADR 



[ADDR OF INSTR BEING TESTED 
[SET IE BITS IN FORTRAN ANSWER 
[CLR FORTRAN FEC 
[CLR FORTRAN FEA 
[CLR FPU FPS BUFFER 
(CLR FPU FEC BUFFER 
[CLR FPU FEA BUFFER 
[GET RANDOM INPUT DATA 

'[ENTER POLISH MODE 

[PUSH 2 WORDS ON STACK (LONUM) 

[PUSH 2 WORDS ON STACK (HINUM) 

[ADDRESS OF FORTRAN DIVIDE 

(POP 2 WORDS AND EXIT POLISH MODE 

(DISPLAY FLOATING POINT STATUS 

(SET FID 

[LOAD AC0 WITH A RANDOM NUMBER 

[LOAD ACl WITH A RANDOM NUMBER 

(LOAD AC3 WITH THE SUM 

[TURN INTERRUPTS ON, EXCEPT OVERFLOW AND UNDERfLOW 

(BESET LOOP ADDRESS 
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SEQ 00SS 
TRUNCATE NODE 



26S4 








26S5 


«165I0 


172600 




2eS6 


016512 


174601 




2657 


016514 


170237 


002362 


265S 


016520 


023737 


002362 002400 


2659 


B16526 


001403 




2660 


016530 


174237 


002406 


2661 


016534 


144016 




2662 








2663 


016536 


005737 


002400 


2664 


016542 


100014 




2665 


016544 


170337 


002364 


2666 








2667 


016550 


023737 


002364 002402 


2668 


016556 


001401 




2669 


016560 


104026 




2670 








2671 


016562 


023737 


002366 002404 


2672 


016570 


001401 




267 3 


016572 


104026 




2674 








2675 


016574 


173702 




2676 


016576 


170000 




2677 


016600 


001427 




2678 








2679 


016602 


174237 


002406 


268k) 


016606 


062737 


•00001 002410 


2681 


016614 


005537 


002406 


2682 


016620 


173737 


002406 


2683 


016624 


170000 




2684 


016626 


001414 




2685 


016630 


162737 


000002 002410 


2686 


0166 36 


005637 


002406 


2687 


016642 


173737 


•02406 


2688 


016646 


170000 




2689 


016650 


001403 




2690 


016652 


174237 


002406 


2691 


016656 


104013 




2692 








2693 


016660 


005037 


002362 


2694 








2695 








2696 








2697 








2698 








2699 








2700 








2701 


016664 


000004 




2702 


•16666 


012737 


017020 002376 


2703 


•16674 


012737 


•04640 002400 


2704 


016702 


005037 


002402 


2705 


016706 


005037 


002404 


2706 


•16712 


•05037 


002362 


2707 


016716 


005037 


002364 


2708 


•16722 


B05B37 


002366 


2709 


•16726 


•04737 


023332 



LDF 


AC0,AC2 


DIVF 


ACI.AC2 


STFPS 


FPS 


CUP 


FPS.JFPS 


BEQ 


DERB7 


5TF 


AC2>ANS1 


ERROR 


16 


TSI 


SFPS 


BPL 


DT5I7 


STST 


FEC 


CMP 


FEC,»FEC 


GEO 


18 


ERROR 


26 


CMP 


FEA,>FEA 


BEO 


DTST7 


ERROR 


26 


CHPF 


AC2,AC3 


CFCC 




BEQ 


DEND7 


ICONPENSATE FOB FORTRAN 


STF 


AC2.ANS1 


ADO 


•1>ANS1*2 


ADC 


ANSI 


C"PF 


AHS1.AC3 


CFCC 




BEQ 


DEND7 


SUB 


•2,ANSlt2 


SBC 


ANSI 


CHPF 


ANS1,AC3 


CFCC 




BEQ 


DEND7 


STF 


AC2>ANSI 


ERROR 


13 



DEND7I CLR 



JLOAD AC0 INTO AC2 

tOIVIDE ACl INTO AC2 

; STORE FLOATING POINT STATUS 

jCHECK FPS 

;BFANCH IF OK 

JSAVE FPU ANSWER 

;FPS ERROR 

;ERROR BIT SET 7 

iNO, DONT GET FEC/FEA 

)IES, CHECK STATUS 

JCHECK THE FLOATING EXCEPTION CODES 
;BRANCH IF OK 
;FEC IS WRONG 

[CHECK FLOATING PC 

;BRANCH IF OK 

;laRONG ADDRESS IN FEA 

iCOMpARE FPU ANSWER TO FORTRAN ANSWER 

(COPY FLOATING CONDITION CODES 

(ANSWERS CHECK 

INACCURACIES. 

(SAVE FPU ANSWER 

(INCREMENT FPU ANSWER 

(CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION CODES 

(BRANCH IF OK 

[DECREMENT FPU ANSWER 

(CHECK ANSWERS AGAIN 

(COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

(SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

(CLEAR FPP FPS BUFFER 



EXERCISE DIVd, OVERFLOW AND UNDERFLOW INTERRUPTS qFF> TRUNCATE MODE 



SCOPE 




MOV 


IDREII0,EXPFEA 


MOV 


1004640. SFPS 


CLR 


JFEC 


CLR 


SFEA 


CLR 


FPS 


CLR 


FEC 


CLR 


TEA 


JSR 


PC,RANDL4 



[ADDR OF INSIR BEING TESTED 

[SET IE BITS IN FORTRAN ANSWER 

[CLR FORTRAN FEC 

[CLR FORTRAN FEA 

[CLR FPU FPS BUFFER 

[CLR FPU FEC BUFFER 

(CLR FPU FEA BUFFER 

[GET RANDOM INPUT DATA 
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2710 


•16732 


•02426 


•02436 




.WORD 


LONUM.HTNUH 


( 


2711 


•16736 


004437 


023506 




JSR 


R4,SP0LSH 


[ENTER POLISH MODE 


2712 


016742 


•23510 


002426 




(PUSH 


,L0NUM 


[PUSH 4 WORDS ON STACK (LONUM) 


2713 


•16746 


023510 


002436 




• PUSH 


,HINUM 


[PUSH 4 WORDS ON STACK (HINUM) 


2714 


•16752 


026364 






tDlV 




[ADDRESS OF FORTRAN DIVIDE 


2715 


•167J4 


023540 


002416 




tPOPX 


,ANS2 


[POP 4 WORDS AND EXIT POLISH MODE 


2716 
2717 


016760 


013700 


002400 




MOV 


SFPS,R0 


[DISPLAY FLOATING POINT STATUS 


2718 


•16764 


170127 


040200 




LDFPS 


4040200 


[SET FID AND FD 


2719 


•16770 


172437 


002426 




LDD 


LONUM,AC0 


(LOAD AC0 WITH A RANDOM NUMBER 


2720 


•16774 


172537 


002436 




LDD 


HINUM.ACl 


[LOAD ACl WITH A RANDOM NUMBER 


2721 


•17000 


172737 


002416 




LDD 


ANS2>AC3 


[LOAD AC3 WITH THE SUM 


2722 


•17004 


170127 


•04640 




LDFPS 


1004640 


(TURN INTERRUPTS ON, EXCEPT OVER AND Ul 


2723 


•17010 


012737 


017016 


00)110 


MOV 


l.t6,$LPADR 


(RESET LOOP ADDRESS 


2724 
















2725 










(#••#») 






2726 
















2727 


•17016 


172600 






LDD 


AC0,AC2 


[LOAD AC0 INTO AC2 


2728 


•17020 


174601 






DRET10t DIVD 


ACl,AC2 


[DIVIDE ACl INTO AC2 


2729 


•17022 


170237 


002362 




STFPS 


FPS 


[STORE FLOATING POINT STATUS 


2730 


•17026 


•23737 


002362 


002400 


CHP 


FPS,«FP5 


[CHECK FPS 


2731 


•17034 


001403 






BEQ 


DERR10 


jBBAMCH IF OK 


2732 


•17036 


174237 


002406 




SID 


AC2,ANS1 


[SAVE FPU ANSWER 


2733 


017042 


104022 






ERROR 


22 


[FPS ERROR 


2734 
















2735 


•17044 


005737 


002400 




DERR101 TST 


8FPS 


[ERROR BIT SET 7 


2736 


B17050 


100014 






BPL 


DTST10 


[NO, DON! GET FEC/FEA 


2737 


•17052 


170337 


002364 




STST 


FEC 


[Its, CHECK STATUS 


2738 
2739 


017056 


023737 


002364 


•02402 


CMP 


FEC, » FEC 


(CHECK THE FLOATING EXCEPTION CODES 


2740 


017064 


001401 






BEQ 


It 


[BRANCH IF OK 


2741 


017066 


104032 






ERROR 


33 


(FEC IS WRONG 


2742 
2743 


•17070 


823737 


002366 


002404 


Kl CMP 


FEA,tFEA 


(CHECK FLOATING PC 


2744 


•17076 


001443 






BEQ 


DEND10 


(BRANCH IF OK 


2745 


•17100 


104032 






ERROR 


32 


[WRONG ADDRESS IN FEA 


2746 
2747 


•17102 


173702 






DTST10I CMPD 


AC2,AC3 


(COMPARE FPU ANSWER TO FORTRAN ANSWER 


2748 


017104 


170000 






CFCC 




(COPY FLOATING CONDITION CODES 


2749 


•17106 


001437 






BES 


DENDle 


[ANSWERS CHECK 


2750 










(COMPENSATE FOR FORTRAN 


INACCURACIES. 


2751 


017110 


174237 


002406 




STD 


AC2,ANS1 


(SAVE FPU ANSWER 


2752 


•17114 


•62737 


•••••1 


002414 


ADD 


•l,ANSlt6 


[INCREMENT FPU ANSWER 


2753 


•17122 


•05537 


002412 




ADC 


AHS1*4 




2754 


■17126 


•05537 


002410 




ADC 


ANS1»2 




2755 


•17132 


•05537 


••2406 




ADC 


ANSI 




2756 


•17136 


17J737 


002406 




CMPD 


ANS1.AC3 


[CHECK ANSWERS AGAIN 


2757 


017142 


170001) 






CFCC 




[COPY FLOATING CONDITION CODES 


2758 


•17144 


•01420 






BEQ 


DEND10 


(BRANCH IF OK 


2759 


•17146 


162737 


000002 


002414 


SUB 


I2,ANS1*6 


[DECREMENT FPU ANSWER 


2760 


017154 


•056 37 


002412 




SBC 


ANS1*4 




2761 


•17160 


•05637 


002410 




SBC 


ANS1*2 




2762 


•17164 


•05637 


002406 




SBC 


ANSI 




2763 


•17170 


173737 


002406 




CMPD 


ANS1,>C3 


[CHECK ANSWERS AGAIN 


2764 


•17174 


170000 






CFCC 




(COPY FLOATING CONDITION CODES 


2765 


•17176 


0ai4e3 






BEQ 


DEND1« 


(BRANCH IF OK 
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2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

27B1 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

J797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

280S 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 



017200 
017204 



174237 002406 
104014 



017206 005037 002362 



017212 
017214 
017222 
017230 
0172)4 
017240 
017244 
017250 
017254 
017260 
017264 
017270 
017274 
017300 
017302 

017306 
017312 
B17316 
017322 
017326 
0173)2 
0173)6 



000004 
012737 
012737 
005037 
005037 
005037 
005037 
005037 
004737 
002426 
004437 
023510 
023510 
026364 
023540 

013700 
170127 
172437 
172537 
172737 
170127 
012737 



017344 
017346 
017350 
017354 
017362 
017364 
017370 

017372 
017376 
017400 

017404 
017412 
017414 

017416 
017424 
017426 



STD 
ERROR 



DENO10: CLR 



AC2,ANS1 ;SAVE FPU ANSWER 

14 ;FPU AND FORTRAN DISAGREE 

FPS [CLEAR FPP EPS BUFFER 



EXERCISE DIVF, INTERRUPT DISABLE SET, ROUNDING MODE 



TSI41I 



017346 
047400 
002402 
002404 
002362 
002364 
002366 
023342 
002436 
023506 
002426 
002436 

002416 

002400 
040000 
002426 
002436 
002416 
047400 
017344 



002362 
002362 



02376 
02400 



SCOPE 

HOV 

MOV 

CLR 

CLR 

CLR 

CLP 

CLR 

JSR 

.WORD 

JSR 

• PUSH 

SPUSH 

$D1V 

SPOPX 

MOV 

LDFPS 

LOF 

LDF 

LDF 

LDFPS 

MOV 



172600 
174601 
170237 
023737 
00140) 
174237 
104016 



005737 002400 

100014 

170337 002)64 



LDF 
DRETIU DIVF 
STtPS 
CMP 
BEQ 
SIF 
ERROR 



DERRU ; 



023737 
001401 
104026 

023737 
001401 
104026 



002364 002402 



002)66 002404 18: 



TST 
bPL 
STST 

CMP 
BEO 
ERROR 

C"P 

BEQ 
ERROR 



iDRET11,EXpFEA 

1047400, SFPS 

»FEC 

SFEA 

FPS 

FEC 

FEA 

PC,RANDL2 

LONUM.HINUH 

R4,SP0LSH 

,L0NU<* 

,HINUM 

,ANS2 

<FP5>R0 

1040000 

LONUM,AC0 

HINUM.ACl 

ANS2,AC3 

4047400 

»,t6,SLPADR 



;addb of insir being tested 
;5et ie bits in fortran answer 
;clr fortran fec 
;clr fortran fea 
;clr fpu fps buffer 
;clr fpu fec buffer 
;clb fpu fea buffer 
;get random input data 

Ienter polish mode 

jpush 2 words on stack (lonum) 

[push 2 words on stack (hinum) 

[address of fortran divide 

(pop 2 words and exit polish mode 

[display floating point status 

[SET FID 

•LOAD AC0 WITH A RANDOM NUMBER 

[LOAD ACl WITH A RANDOM NUMBER 

[LOAD AC3 WITH THE SUM 

(SET INTERRUPT DISABLE AND INTERRUPT BITS 

[RESET LOOP ADDRESS 



ACe,AC2 

AC1,AC2 

FPS 

FPS.SFPS 

DERR11 

AC2,AHS1 

16 

<FPS 

DTSTll 

FEC 

FEC.tFEC 
IS 

26 

FEA, SFEA 

DTSTll 

26 



[LOAD AC0 INTO AC2 

(DIVIDE ACl INTO AC2 

[STORE FLOATING POINT STATUS 

[CHECK FPS 

[BRANCH IF OK 

(SAVE FPU ANSWER 

(FPS ERROR 

[ERROR BIT SET ? 

[NO, DONT GET FEC/FEA 

(YES, CHECK STATUS 

(CHECK THE FLOATING EXCEPTION CODES 
(BRANCH IF OK 
[FEC IS WRONG 

(CHECK FLOATING PC 

[BRANCH IF OK 

[WRONG ADDRESS IN FEA 



FPU ADD/SUB/HUL/DIV RANDOM EXER MACYll 27(1006) 94-MAY-77 19118 PAGE 57 „„„„„,„,. „„„«■ 

DOFPDB.PIl 04.NAY-77 17:30 141 EXERCISE DIVF, INTERRUPT DISABLE SET, ROUNDING MODE 



2822 
2823 
2624 


017430 


173702 




DTSTlll 


CHPF 


AC2,AC3 


[COMPARE FPU ANSWER TO FORTRAN ANSWER 


017432 


170000 






CFCC 




[COPY FLOATING CONDITION CODES 


2825 


017434 


001416 






BEQ 


DENDll 


(ANSWERS CHECK 


2826 










[COMPENSATE FOR FORTRAN 


INACCURACIES. 


2827 


017436 


174237 


002406 




STf 


AC2,ANS1 


(SAVE FPU ANSWER 


2828 


017442 


162737 


000001 002410 




SUB 


ll,ANSlt2 


(DECREMENT FPU ANSWER 


2829 


017450 


005637 


002406 




SBC 


ANSI 




28)0 
28)1 


017454 

017460 


173737 
170000 


002406 




CMPF 
CFCC 


ANSI, ACl 


(CHECK ANSWERS AGAIN 

(COPY FLOATING CONDITION CODES 


2832 


017462 


001403 






BEQ 


DENDll 


[BRANCH IF OK 


2833 
2834 


017464 
017470 


174237 
104013 


002406 




STF 
ERROR 


AC2,ANS1 
1) 


(SAVE FPU ANSWER 

(FPU AND FORTRAN DISAGREE 


2835 
2836 


017472 


005037 


002362 


DENDll: 


CLR 


FPS 


[CLEAR FpP FPS BUfFEB 


2837 
















2838 
















2839 


017476 
017500 
017506 
017514 


000004 
012737 
012737 
0050)7 


017632 092376 
047600 002400 
002402 










2840 
2841 


([•••«« 
[•TEST 


42 


EXERCISE DIVD, 


INTERRUPT DISABLE SET, BOUNDING MODE 


2842 
2843 
2844 
2845 
2846 


[!••••• 

IST42: 


SCOPE 
MOV 
MOV 
CLR 


IDRET12,EXPFEA 
•047600, SFPS 

SFEC 


(ADDR OF INSTR BEING TESTED 

(SET FID AND IE BITS IN FORTRAN ANSWER 

(CLR FORTRAN FEC 


2847 


017;2d 


095037 


002404 




CLR 


SFEA 


(CLR FORTRAN FEA 


2B4B 


017521 


005037 


902362 




CLR 


FPS 


[CLR FPU FPS BUFFER 
(CLR FPU FEC BUFFER 
(CLR FPU FEA BUFFER 
[GET RANDOM INPUT DATA 


2849 


017530 


005037 


092364 




CLR 


FEC 


2850 
2851 


017534 

017540 


005037 
004737 


902366 
023332 




CLR 
JSR 


FEA 
PC,RANDL4 


2852 


017544 


082426 


002436 




.WORD 


LONUM, HINUM 


; 


2853 
2854 
2855 
2956 
2857 


017550 
017554 
017560 
017564 
017566 


004437 
02 3510 
02)5l<) 
026364 
023540 


02)506 
002426 
0024)6 

992416 




JSR 

$PUSH 

tPUSH 

8DIV 

SPOPX 


R4,SP0LSH 
, LONUM 
, HINUM 

,ANS2 


(ENTER POLISH MODE 

(PUSH 4 WORDS ON STACK (LONUM) 

[PUSH 4 WORDS ON STACK (HINUM) 

[ADDRESS OF FORTRAN DIVIDE 

(POP 4 WORDS AND EXIT POLISH MODE 


2858 
2859 


017572 


01)700 


002400 




MOV 


SFPS,R0 


(DISPLAY FLOATING POINT STATUS 


2860 
2861 
2862 
2863 
2864 
2865 


017576 
017602 
017606 
017612 
017616 
017622 


170127 
1724)7 
1725)7 
1727)7 
170127 
0127)7 


040200 
092426 
0024)6 
002416 
047699 
917630 001110 




LDFPS 

ldd 

LDD 
LDD 
LDFPS 
HOV 


1049200 

LONUM, AC0 

HINUM.ACl 

ANS2>AC3 

1047600 

t,t6,SLPADR 


[SET FID AND FD 

[LOAD AC0 WITH A RANDOM NUMBER 

[LOAD ACl WITH A RANDOM NUMBER 

(LOAD AC) WITH THE SUM 

[SET INTERRUPT DISABLE AND INTERRUPT B 

(RESET LOOP ADDRESS 


2866 
















2867 










!««»•• 






2868 
2869 


017630 


172600 






LDD 


AC0,AC2 


(LOAD AC0 INTO AC2 


2870 


0176)2 


174601 




DRET121 


: DIVD 


AC1,AC2 


[DIVIDE ACl INTO AC2 


2871 


017634 


170237 


902362 




STEPS 


FPS 


[STORE FLOATING POINT STATUS 


2872 


017640 


023737 


092362 002400 




CMP 


FPS, SFPS 


[CHECK FPS 


2873 


017646 


001403 






BEQ 


DERR12 


[BRANCH IF OK 


2874 


017650 


1742)7 


002406 




STD 


AC2,ANS1 


(SAVE FPU ANSWER 


2875 


017654 


104022 






ERROR 


22 


[FPS ERROR 


2876 
2877 


017656 


0057)7 


992400 


DERR121 


1 TST 


SFPS 


[ERROR BIT SET 7 
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2»7e 

2879 
2880 
2881 
2882 
2889 
2884 
288! 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
289) 
2894 
2895 
2B96 
2897 
2898 
2899 
2900 
2901 
2902 
2909 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 



017662 
017664 

D17670 
017676 
V17700 



100014 
170337 

033737 

001401 
104032 



002364 002402 



017702 023737 002366 002404 

017710 001401 

017712 104032 

017714 173702 

017716 170000 

•17720 001422 



017722 
817726 
017734 
017740 
017744 
017750 
017754 
017756 
017760 
017764 



174237 
162737 
005637 
005637 
005637 
173737 
170000 
001403 
174237 
104014 



002406 

000001 

002412 
002410 
002406 
002406 



017766 005037 002362 



017772 
017774 
020002 
020010 
020014 
020020 
020024 
020030 
020034 
020040 
020044 
020050 
020054 
020060 
020062 

•20066 
•20072 
•70076 
•20102 
020106 
•20112 



000004 
012737 
•12737 
005037 
005037 
005037 
005037 
005037 
004737 
002426 
BH4437 
023513 
023510 
026364 
023540 

013700 
170127 
172437 
172537 
172737 
170127 



BPL 


DTST12 


STST 


FEC 


CMP 


FECtJFEC 


BEO 


IS 


ERROR 


32 


is: C"P 


FEA,«FEA 


BEU 


DTST12 


ERROR 


32 


DTST12: CHPO 


AC2,AC3 


crcc 




BEO 


DEND12 


ICOMPENSATC FOR Fl 


STD 


AC2f ANSI 


SUB 


ll,ANSU6 


SBC 


ANSH4 


SBC 


ANSl*2 


SBC 


ANSI 


CMPD 


AN&|,AC3 


CFCC 




BEO 


DEND12 


STD 


AC2,ANS1 


ERROR 


14 


DEND121 CLR 


FPS 



;N0, DONI GET FEC/FEA 
jYES, CHECK STATUS 

;CHECK THE FLOATING EXCEPTION CODES 
SBRANCH IF OK 
;FEC IS URONG 

[CHECK FLOATING PC 

[BRANCH IF OK 

;URONG ADDRESS IN FEA 

[COMPARE FPU ANSWER TO FORTRAN AlisUE 

[COPl FLOATING CONDITION CODES 

[ANSWERS CHECK 

INACCURACIES. 

[SAVE FPU ANSWER 

[DECREMENT FPU ANSWER 



[CHECK ANSWERS AGAIN 

(COPl FLOATING CONDITION CODES 

[BRANCH IF OK 

[SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

[CLEAR FPP FPS BUFFER 



020126 
047440 
002402 
002404 
002362 
002364 
002366 
023342 
002436 
023506 
002426 
002436 

002416 

002400 
040000 
002426 
002436 
002416 
047440 



002376 

002400 



[l»»».».»»»»»» 
[•TEST 43 
[[•••••••••••• 

TST43! SCOPE 
NOV 
MOV 
CLR 
CLR 
CLR 
CLR 
CLR 
JSR 
.WORD 
JSR 
SPUSH 
SPUSH 
SDIV 
SPOPX 

HOV 

LOFPS 

LDF 

LOF 

LDF 

LDFPS 



EXERCISE DIVF. INTERRUPT DISABLE SET, TRUNCATE MODE 



fDRET13/EXpFEA 

•047440>SFPS 

SFEC 

SFEA 

FPS 

FEC 

FEA 

PC,RANDL2 

LONUM,HINUN 

R4,$P0LSH 

(LONUM 

,HIHUM 

,ANS2 

SFPS/R0 

•040000 

LONUH,AC0 

HINUM.ACl 

ANS2,>C3 

1047440 



[ADDR OF INSTR BEING TESTED, 

[SET FID AND IE BITS IN FOr'trAN ANSWER 

[CLR FORTRAN FEC 

[CLR FORTRAN FEA 

[CLR FPU FPS BUFFER 

(CLR FPU FEC BUFFER 

(CLR FPU FEA BUFFER 

[GET RANDOM INPUT DATA 

> 

[ENTER POLISH MODE , 
(PUSH 2 WORDS ON STACK (LOflUM) 
[PUSH 2 WORDS ON STACK (HWIIM) 
[ADDRESS OF FORTRAN DIVIDE 
(POP 2 WORDS AND EXIT POLISH MODE 

[DISPLAY FLOATING POINI ^TATUS 

(SET FID , „ ■ 

(LOAD AC0 WITH A RANDOM NUMBER 

[LOAD ACl WITH A RANDOM tlUMBER 

(LOAD AC3 WITH THE SUM 

(SET INTERRUPT DISABLE AND INTERRUPT BITS 
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2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2953 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
3980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 



02011b 012737 020124 001110 



020124 
•20126 
•20130 
•20134 
•20142 
•20144 
020150 

S20152 
•20156 
•20160 

•20164 
•20172 
020174 

020176 
020204 
•20206 

•20210 
•20212 
020214 

020216 
020222 
•20230 
020234 
•20240 
•20242 
•20244 
•20252 
•20256 
020262 
•20264 
•20266 
•20272 



172600 
174601 
170237 
023737 
001403 
174237 
104016 



002362 
002362 



MOV 


l.»6,SLPADR 


[RESET LOOP ADDRESS 


LDF 


AC0,AC2 


[LOAD AC0 INTO AC2 


DIVF 


AC1,AC2 


(DIVIDE ACl INTO AC2 


STEPS 


FPS 


(STORE FLOATING POINT STATUS 


CMP 


FPS,SFPS 


[CHECK FPS 


BEO 


DERP13 


[BRANCH IF OK 


STF 


AC2,ANS1 


[SAVE FPU ANSWER 


ERROR 


16 


[FPS ERROR 



005737 002400 

100014 

170337 002364 



DERR13I TST SFPS 

BPL DTSin 
STST FEC 



023737 
001401 
104026 

023737 
001401 
104026 

173702 
170000 
001427 

174237 
062737 
005537 
173737 
170000 
001414 
162737 
005637 
173737 
170000 
001403 
174237 
104013 



002364 002402 



002366 002404 IS! 



CMp 
BEU 
ERROR 

CMP 
BEO 
ERROR 



FEC, SFEC 

IS 

26 

FEA, SFEA 

DTST13 

26 

AC2,AC3 



000001 002410 

002406 

002406 



000002 
002406 
002406 



•20274 005037 002362 



STF 

ADD 

ADC 

CMPF 

CFCC 

BEO 

SUB 

SBC 

CMPF 

CFCC 

BEO 

STF 

ERROR 

DEND13I CLR 



CMPF 

CFCC 

BEO DEND13 

(COMPENSATE FOR FORTRAN 



AC2,ANS1 
•1,ANS1«2 
ANSI 
ANS1,AC3 

DEND13 
»2,ANslt2 
ANSI 
ANS1,AC3 

DENDn 

AC2,ANS1 

13 



(ERROR BIT SET 7 

(NO, DONT GET FEC/FEA 

[YES, CHECK STATUS 

(CHECK THE FLOATING EXCEPTION CODES 
[BRANCH IF OK 
(FEC IS WRONG 

(CHECK FLOATING pC 

(BRANCH IF OK 

[WRONG ADDRESS IN FEA 

[COMPARE FPU ANSWER TO FORTRAN ANSWER 

(COP* FLOATING CONDITION CODES 

[ANSWERS CHECK 

INACCURACIES. 

[SAVE FPU ANSWER 

[INCREMENT FPU ANSWER 

[CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

[DECREMENT FPU ANSWER 

(CHECK ANSWERS AGAIN 

(COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

(SAVE FPU ANSWER 

[FPU AND FORTRAN DISAGREE 

[CLEAR FPP FPS BUFFER 



•70300 
•20302 
•20310 
•20316 
•20322 
•30326 
•20332 



•00004 
•12737 
•12737 
•05037 
005037 
005037 
005037 



020434 
047640 
002402 
002404 
002362 
002364 



002376 
002400 



[♦TEST 44 
((•••••••••••• 

TST44t SCOPE 
MOV 
MOV 
CLR 
CLR 
CLR 
CLR 



EXERCISE DIVD, INTERRUPT DISABLE SET, TRUNCATE MODE 



<DRET14,EXPFEA 

•047640, SFPS 

SFEC 

SFEA 

FPS 

FEC 



[ADDR OF INSTR BEING TESTED 

(SET FID AND IE BITS IN FORTRAN ANSWER 

[CLR FORTRAN FEC 

[CLR FORTRAN FEA 

[CLR FPU FPS BUFFER 

(CLR FPU FEC BUFFER 
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299iS 


020336 


005037 


002366 


2991 


020342 


004737 


023332 


2992 


1120346 


002426 


002436 


299J 


020352 


•04437 


023506 


2994 


•203S6 


02 3510 


002426 


2995 


020362 


0235ia 


002436 


2996 


020366 


026364 




2997 


020370 


•23540 


002416 


2998 








2999 


020374 


E:13700 


002400 


jeee 


02040B 


170127 


040200 


3eei 


020404 


172437 


002426 


3082 


020410 


172537 


002436 


3ee3 


020414 


172737 


002416 


3004 


020420 


170127 


047640 


300; 


020424 


•12737 


020432 


3006 








3007 








3008 








3009 


020432 


172600 




3010 


070434 


174601 




3011 


020436 


170237 


002362 


3012 


020442 


•23737 


002362 


3013 


020450 


•01403 




3014 


020452 


174237 


002406 


301S 


020456 


104022 




3016 








3017 


020460 


0057 37 


002400 


3018 


020464 


1 000 1 4 




3019 


020466 


170337 


002364 


3020 








3021 


020472 


•23737 


002364 


3022 


•20500 


•01401 




3023 
3024 
3025 


020502 


104032 




020504 


023737 


002366 


3026 


•20512 


•01401 




3027 


•20S14 


104032 




3028 








3029 


020516 


173702 




3030 


020520 


170000 




3031 


020522 


•01437 




3032 








3033 


020524 


174237 


002406 


3034 


020530 


062737 


000001 


3035 


020536 


•05537 


002412 


3036 


020542 


•05537 


002410 


3037 


•20S46 


•05537 


002406 


3038 


•20552 


173737 


002406 


3039 


•20556 


170000 




3040 


020560 


•01420 




3041 


•20562 


162737 


000002 


3042 


•20570 


•95637 


002412 


3043 


•20574 


005637 


002410 


3044 


•20600 


•05637 


•02406 


3045 


•20604 


173737 


002406 



04-MAY-77 18:18 PAGE 60 " 

EXERCISE DIVD, INTERRUPT DISABLE SET, TRUNCATE "ODE 

[CLR FPU FEA BUFFER 
;GET RANDOM INPUT DATA 

SenTER POLISH MODE 

;PUSH 4 UORDS ON STACK (LONUM) 

;PUSH 4 UORDS ON STACK (HINUB) 

;ADDBESS OF FORTRAN DIVIDE 

■POP 4 WORDS AND EXIT POLISH MODE 

jDISPLAY FLOATING POINT STATUS 

jSET FID AND FO 

;LOAD ACe WITH A RANDOM NUMBER 

■LOAD ACl WITH A RANDOM NUMBER 

iLOAD AC3 WITH THE SUM 

;SET INTERRUPT DISABLE AND INTERRUPT BITS 

'; RESET LOOP ADDRESS 



CLP 


FE* 


JSB 


PC,RANDL4 


.WORD 


LONUM, HINUM 


JSR 


H4<SP0LSH 


(PUSH 


, LONUM 


SPUSH 


, HINUM 


iOIV 




8P0PX 


,ANS2 


MOV 


SFPS,R0 


LDFPS 


1040200 


LOO 


LONUM, AC0 


LDD 


HINUM, ACl 


LDD 


ANS2,AC3 


LDFPS 


4047640 


MOV 


•.t6,$LPADR 


LDD 


AC»,AC2 


DRET14: DIVD 


AC1,AC2 


STEPS 


FP5 


CMP 


FPS,tFPS 


BEO 


DERR14 


SID 


AC2,ANS1 


ERROR 


22 


DEBR14; 1ST 


SFPS 


BPL 


DT5T14 


STST 


FEC 


CMP 


FECSFEC 


BEQ 


IS 


ERROR 


32 


is: CMP 


PEA.SFEA 


BEQ 


DTST14 


ERROR 


32 



002414 



;LOAD AC0 INTO AC2 

;DIVIDE ACl INTO AC2 

;STORE FLOATING POINT STATUS 

[CHECK FPS 

[BRANCH IF OK 

[SAVE FPU ANSWER 

•FPS ERROR 

[ERROR BIT SET 1 

[MO, OONI GET FEC/FEA 

[YES, CHECK STATUS 

[CHECK THE FLOATING EXCEPTION CODES 
[BRANCH IF OK 
[FEC IS WRONG 

[CHECK FLOATING PC 

[BRANCH IF OK 

[WRONG ADDRESS IN FEA 

CHPD AC2 ACS [COMPARE FPU ANSWER TO FORTRAN ANSWER 

j.p(.f [COPY FLOATING CONDITION CODES 

BEO DENDU [ANSWERS CHECK 

[COMPENSATE FOR FORTRAN INACCURACIES. 

- - [SAVE FPU ANSWER 

[INCREMENT FPU ANSWER 



STD 


AC2,A>IS1 


ADD 


11, ANSI +6 


ADC 


AHSlt4 


ADC 


ANSlt2 


ADC 


ANSI 


CMPD 


ANS1,AC3 


CFCC 




BEQ 


DEND14 


SUB 


»2,ANS1*6 


SBC 


ANS1*4 


SBC 


ANS1*2 


SBC 


ANSI 


CHPD 


ANS1,AC3 



[CHECK ANSWERS AGAIN 

[COPY FLOATING CONDITION CODES 

[BRANCH IF OK 

[DECREMENT FPU ANSWER 



[CHECK ANSWERS AGAIN 



lllZV.'T'''r^V./.)r:.,ir """ "U""' E^Jp^i^r^IviriSTE^Ju^T'-ilSABLE SET. TRUNCATE MODE 



3046 
3047 
3048 
3049 
3050 
3051 



•20610 
•20612 
•20614 
020620 



170000 
•01403 
174237 
104014 



020622 005037 002362 



[.p.(.(. [COPY FLOATING CONDITION CODES 

BEO DENnl4 [BRANCH IF OK 

STD AC2,ANS1 [SAVE FPU ANSWER 

ERROR 14 ;FPU AMD FORTRAN DISAGREE 

DEND14: CLR FPS [CLEAR FPP FPS BUFFER 
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30S2 
JOSS 

3eS4 

aess 

3056 
3057 
3058 
3054 
3060 
3061 
3062 
306 3 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3079 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 



020626 000004 



020630 
020636 
P20642 
020646 
0206S2 
020656 

020662 
V30666 
020672 
■20676 
020702 
020706 
020712 
02072» 

020722 
020726 
020732 
■20736 
•20740 
020744 
020750 
020754 
020756 
■20760 
020762 
020766 
■20770 

020774 
071000 
021004 
■21010 



■12737 
■05037 
■05037 
■05037 
■05037 
■95037 

■04737 
002446 
■04737 
■02456 
004737 
002466 
032737 
001770 

004437 

023510 
023510 
■23562 
■23510 
023510 
023510 
026364 
023566 
025244 
B2351H 
025244 
023540 

170127 
172437 
013700 
■12737 



■21016 
021022 
■21026 
■21032 
021036 
021042 
■21046 
■21050 

■21054 
■2 1 060 
■21066 

■21070 



170127 
172537 
173137 
172637 
174637 
172237 
171102 
171137 

170237 
■23737 
■01403 
174137 



(•TEST 45 



ADDF, SUBF, HULF, DIVF EXERCISER 



SCOPE 

(•UNDERFLOli, OVERFLOW INTERRUPTS OFF) TRUNCATE MODE 



000440 
002402 
002404 
002362 
002364 
002366 

023342 
002476 
023342 
002506 
023342 
002516 
077600 



023506 
002446 
002456 

002466 
002476 
002516 



002416 

040000 
002416 
002400 
021016 



000440 
002446 
002456 
002476 
002516 
002466 

002506 

002362 
002362 



MOV 


1440, SFPS 


CLR 


SFEC 


Ct,R 


SFEA 


CLR 


FPS 


CLR 


FEC 


CLR 


FEA 


JSP 


PC,PANDL2 


.WORD 


OPI,OP4 


JSR 


PC,RANDL2 


.WORD 


OP2,OP5 


JSR 


PC,RANDL2 


.WORD 


0P3,0P6 


BIT 


»0776fl0,OP6 


BEU 


1( 


JSR 


r4,SP0LSH 


tPUSH 


,0P1 


SPUSH 


,0P2 


$SUB 




SPUSH 


,0P3 


SPUSH 


,0P4 


J PUSH 


,0P6 


SOIV 




SADD 




SMUL 




tPUSH 


,0P5 


S"UL 




SPOPX 


,ANS2 


LDtPS 


•040000 


LDF 


ANS2,AC0 


MOV 


$FPS,R0 


MOV 


l.^6,SLPADR 


LDFPS 


t00t«440 


LDF 


OPl.ACl 


SUBF 


0P2,AC1 


LDF 


0P4,AC2 


DIVF 


0P6,AC2 


ADDF 


CP3,AC2 


MULF 


AC2,AC1 


HULF 


OPS, AC 1 


STEPS 


FPS 


CHP 


FPS, SFPS 


BEQ 


ETSTl 


STF 


AC1,ANS1 



SOFTWARE STATUS 
CLEAR STATUS 



GET 6 FLOAT RANDOM NUMBERS 



LET'S NEVER DIVIDE BY ZERO 

EXPO OF 0P6 IS ZERO, SO GET ANOTHER 



ENTER POLISH MODE TO CALCULATE: 

AHS2 » (0P1-0P2) • (0P3»0P4/0P6) ♦ OPS 



NO CHECKS 

GET SOFTWARE ANSWER 
DISPLAY SFPS 
RESET LOOP ADDRESS 



•f 



;INITIAL FPS 

;AC1 <- DPI 

[ACl <- 0P1-0P2 

|AC2 <- 0P4 

jAC2 <- OP4/OP6 

;AC2 <- OP3*0P4/0P6 

jACl <• lOPl-OP2)»(0P3tOP4/0P6) 

[ACl <- (OPl-OP2)»(0P3*OP4/0P6)»nP5 

fSTOHF STATUS AFTERWARD 
JCHECK STATUS 
;BRANCH IF OK 
iSAVE FPU ANSWER 
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3108 


■21074 


104033 




3109 








3110 


021076 


173401 




3111 


021100 


170000 




3112 


■21102 


■01436 




3113 








3114 








3115 


■21104 


174137 


002406 


3116 








3117 


•21110 


163737 


002420 002410 


3119 


■21116 


■05637 


002406 


3119 


■21122 


163737 


B02416 002406 


3120 


■21130 


100011 






•21132 


005137 


002410 




■21136 


■05137 


002406 




■21142 


B62737 


000001 002410 




•21150 


■05537 


002406 












■21154 


■05737 


002406 




•21160 


■ ill034 














■21162 


023727 


002410 B00006 




•21170 


■03403 














•21172 


174137 


0B24B6 




•21176 


104035 














•21200 


B05037 


002362 




























































■21204 


B0B084 






















■21206 


B12737 


00B6B0 B02400 




■21214 


005937 


0024B2 




■21220 


005037 


BB24B4 




■21224 


005037 


002362 




•21230 


005037 


002364 




■21234 


•05037 


002366 












■21240 


■04737 


023332 




■21244 


■02446 


■02476 


3155 


■21250 


■04737 


023332 


3156 


■21254 


•02466 


002456 


3157 


■21260 


■04737 


023332 




■21264 


■02506 


002516 




■21270 


■32737 


077600 002506 




■21276 


■0177a 






■21300 


■3J737 


077600 002516 




021306 


■■1764 













33 

AC1,AC0 



CMPF 
CFCC 
BFO EENDl 



;FPS ERROR 

;ANSWER OK 7 (FPUISOFTWARE) 
;COPY CC-S 
iANSWEK CHECKS 



;COMPENSATE IN LOB FOR INACCURACIES 



STF 

SUB 
SBC 
SUB 
BPL 
COM 
COM 
ADD 
ADC 

10S: TST 

BNE 

CMP 
BLt 

EERRll STF 

EPHOR 

EENDl: CLR 



ACl, ANSI 

ANS2*2,ANS1<2 

ANS1«B 

ANS2*0, ANSl+0 

10s 

AHS1«2 

ANS1«0 

•1,ANS1«2 

ANSl»a 

ANSlt<1 
EERRl 

ANS1«2,>6 
EENDl 

ACl, ANSI 
35 



FPU ANSWER 
GET (SOFT-ANS) 

ALWAYS MAKE * 



IF NONiERO IN 16 HQU, SIGN/EXP/FRAC DIFFERS 



ALLOW */- 6 IN LSB OF FRAC 
BR IF OK 



FPU ANSWER 

ANSWERS DON'T CHECK 



CLEAR BUFFER 



;»Test 46 



ADOD, SUBD, MULD, UIVD EXERCISER 



TST46: SCOPE 

;>UNDERFlOM, OVERFLOW INTERRUPTS OFF; BOUND MODE 



MOV 


•600, SFPS ; 


CLK 


SFEC ; 


CLH 


SFEA ; 


CLR 


FPS ; 


CLR 


FEC ; 


CLR 


FEA ; 


JSR 


PC,RANDL4 , 


• WORD 


0P1,0P4 ; 


JSR 


PC,RANDL4 ; 


.WORD 


OP3,0P2 ; 


JSR 


PC,RANDL4 i 


.WORD 


0P5,0P6 ; 


BIT 


•0776BB,OP5 ; 


BEB 


n ; 


BIT 


•077600, 0P6 i 


BEQ 


19 ; 



SOFTWARE STATUS 
CLEAR STATUS 



|GET 6 DOUBLE FLOAT RANDOM NUMBERS 



LET'S NEVER DIVIDE BY ZERO 
OPS IS ZERO, TRY AGAIN 



OPS IS ZERO, TRY AGAIN 
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3164 


021310 


004437 


023506 


)I65 


S2U14 


023510 


002446 


J166 


(21320 


033510 


003466 


J167 


02IJ24 


023566 




3168 


021326 


033510 


003506 


1169 


»21332 


036364 




3170 


031334 


033510 


002456 


3171 


021340 


023510 


00247b 


317J 


021344 


023562 




3173 


021346 


033510 


002516 


3174 


021352 


026364 




3175 


021354 


035244 




3176 


021356 


023540 


002416 


3177 








3178 


021362 


170127 


040200 


3179 


021366 


173437 


003416 


3180 


021372 


013700 


003400 


3181 


021376 


012737 


031404 


3182 








3183 








3184 








3185 


021404 


170127 


000600 


3186 


021410 


173537 


002446 


3187 


021414 


173137 


003466 


3189 


031430 


174537 


002506 


3189 


021424 


172637 


002456 


3190 


021430 


173337 


003476 


3191 


021434 


174637 


002516 


3192 


021440 


171102 




3193 








3194 


021442 


170337 


002362 


3195 


821446 


033737 


003362 


3196 


031454 


001403 




3197 


021456 


174137 


0C2406 


3198 


021462 


104034 




3199 








3200 


031464 


173401 




3201 


•21466 


170000 




3202 


021470 


001474 




3203 








3204 








3205 


021472 


174137 


003406 


3206 








3207 


021476 


163737 


003424 


3208 


031504 


005637 


003412 


3209 


021510 


005637 


002410 


3210 


021514 


005637 


002406 


3211 


021520 


163737 


002433 


3212 


021526 


005637 


002410 


3213 


031532 


005637 


003406 


3214 


021536 


163737 


003430 


3215 


021544 


005637 


003406 


3216 


021550 


163737 


003416 


3217 


•21556 


100021 




3219 


02156e 


B95137 


003414 


3219 


021564 


00513 7 


002412 



JSR 


R4,SP0LSH 


CPUSH 


,0P1 


tPUSH 


,0P3 


$ADD 




SPUSH 


.0P5 


SDIV 




SPUSH 


,0P2 


SPUSH 


,0P4 


SSUB 




SPUSH 


,0P6 


SDIV 




SHUL 




SPOPX 


,ANS2 


LDFPE 


1040200 


LDO 


ANS2,AC0 


HOV 


SFPS,B0 


MOV 


l.t6,SLPADR 



jENTER POLISH MODE TO CAlCULATEi 

'• /OPltOP3\ /OP3-OP4\ 

; AMS2 « 1 -I • I- 1 

. \ OPS / \ 0P6 / 



!N0 CHECKS 

;GET SOFTWARE ANSWER 
jDISPLAY SFPS 
jRESET LOOP ADDRESS 



; I »««•»•»»«««•«»••«««««»•••»« »<»*«»»*»*»»*»1 



• •••*»»»»»•»«•*»* 



LDFPS 

LDO 

ADDD 

DIVD 

LDD 

SUED 

DIVD 

HULD 

STFPS 
cup 

BEQ 
STD 
ERROR 

ETST2: C"PD 
CFCC 

bEO 



1000600 
OPl.ACI 
0P3.AC1 
OPS.ACl 
0P2.AC2 
0P4.AC2 
0P6.AC2 
AC2,AC1 

FPS 

FPSiSFPS 

ETST2 

ACUANSl 

34 

AC1>AC0 

EEND3 



JINITIAL FPS 

JACI <• OPl 

;AC1 <- 0P1*0P3 

;AC1 <- (OPl*OP3)/'OP5 

;AC2 <• 0P2 

)AC2 <- 0P3-0P4 

iAC2 <- (0P2-0P4)/0P6 

;AC1 <- (OPltOP3)/0P5»(OP2-OP4)/'OP6 

;STaBE STATUS AFtErKArD 
;CHECK STATUS 
;BRANCH IF OK 
;SAVE FPU ANSWER 
jFPS ERROR 

JABSWER OK ? CFPU:SOFTWARE) 
;COPY CC-S 
;ANSWER CHECKS 



SCOMPENSATE IN LOB FOR INACCURACIES 
STD ACl.AHSl :FPU ANSWER 



SUB 


ANS2«6, 


AN51+6 


SBC 


ANSI»4 




SBC 


ANS1*2 




SBC 


ANSK0 




SUB 


ANS2+4, 


ANSl*4 


SBC 


ANS1*2 




SBC 


ANSW0 




SUB 


«NS2»2 


ANSl-t3 


SBC 


ANS1«0 




SUB 


ANS3*0 


ANS1*0 


BPL 


10S 




COM 


ANS1«6 




COM 


ANS1»4 





;GET (SOFT-ANS) - (FPU-ANSI 



{ALWAYS MAKE « 
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DOFPDB, 


P11 


4-MAY.77 


17l30 


3230 


021570 


•05137 


002410 


3331 


021574 


005137 


003406 


3332 


•21600 


062737 


000001 002414 


3223 


•31606 


005537 


002412 


3334 


031612 


005537 


002410 


3225 


■31616 


005537 


003406 


3226 
3227 


•31623 


005737 


002406 


3228 


021626 


001012 




3229 


021630 


005737 


003410 


3230 


•21634 


001007 




3331 


021636 


005737 


002413 


3332 


•21643 


001004 




3333 
3234 


•31644 


023727 


002414 B0OD05 


3235 


021652 


003403 




3236 








3237 


031654 


174137 


002406 


3338 


•31660 


104036 




3339 








3240 


•21662 


005037 


002362 



COM 


ANS1«2 


COM 


ANS1*0 


ADD 


#1,ANS1*6 


ADC 


ANSU4 


ADC 


ANSlt3 


ADC 


ANSlt0 


TSI 


ANS1*0 


BNE 


EERR2 


TST 


ANSlt3 


BNE 


EERR3 


TST 


ANS1»4 


BNE 


EERR2 


CMP 


ANsue.ts 


BLE 


EEKD2 


STD 


AC1,AHSI 


ERROR 


36 



EEND2! CLk 



IF NONZERO IN 16 HOB, SI(:n/EXP/FRAC DIFFERS 

IF NONZERO IN 16 H-MOB, FRAC-B DIFFERS 

IF NONZERO IN 16 L-MOB, FRAC-C DIFFERS 

ALLOW ♦/- 5 IN L5B OF FRAC 
BR IF OK 

FPU ANSWER 

ANSWERS DON'T CHECK 

CLEAR BUFFER 
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!Kfi 2067 



3241 








3242 








3243 








3244 


«216e6 


•00004 




324S 


•21670 


•05037 


001166 


3246 


»21674 


005037 


001104 


3247 


021700 


005037 


001102 


3248 








3249 








32S0 








32S1 








33S2 








3253 








3254 








3255 








3256 








3257 








3256 








3259 


£121704 


•76600 


000022 


3260 


»21710 


•32700 


000020 


3261 


•21714 


001423 




3262 








3263 


•21716 


•32777 


000002 


3264 


•21724 


•01017 




3265 








3266 


•21726 


•12701 


010000 


3267 


•21732 


•76600 


000144 


3268 


•21736 


•30100 




3269 


•21740 


•01402 




3270 


•21742 


•40100 




3271 


•21744 


•00401 




3272 


•21746 


•5012e 




327J 


B2I750 


»766^0 


•00344 


3274 








3275 


•21754 


•30100 




3276 


B21756 


001002 




3277 


•21760 


000137 


003S16 


3278 








3279 








3280 








3281 








3282 








3283 








3284 








3285 








3286 








3287 








3288 








3289 








3290 








3291 


•21764 






3292 


•21764 


•05037 


001104 


3293 


•21770 


005037 


001102 


3294 


•21774 


•05037 


001166 


3295 








3296 


•22000 


•05327 





SCOPE 




CLH 


STIMES 


CLR 


8ERFLG 


CLR 


STSTNM 



•SBTTl SUB PASS END CONTROL 

(CHECK FOR TEST ITERATIONS HERE 

;DONI ITERATE THIS "TEST" 

;N0 ERRORS HERE 

;ZAP TEST «t MHEN DONE WITH A PASS 

[If TEST ONLY EITHER HFP OR WFp, ENTER "EOP" ROUTINE DIRECTHV 

: IF IN ALTERNATE HFP/WFP MODE, 

( COMPLEMENT FLA0<5>, HFP ENABJ/E BIT. 

I ENTER EOP ROUTINE ONLI IF AWUT TO TEST *FP NEXT, 

i TESTING SEQUENCE IS! PASS»1 HFP Sl^.PASS 

; PASSd HFP SUB-PASS 

1 P»iSI2 HFP SUB-PASS 



;GET WHAM! INTO R0 
jlsHFP PRESENT, 0=NONE 
;EXIT If NONE 

;l«HFp tR WFp TEST ONLY 

;0 = ALTEPNATE HFP AND W.FP TESTS 

(HFP PRESENT, AND IN ALTERNATE MODEl 

;S0 READ %LAGS, 

iCOHPLtMBH.I FLAG<5>=BiT12 = HFP ENABLE FLAG 

•CLEAR BM 12 

I 

;SET BIT r2 

[REWSIIE ^LAGS 

[HFP 0» WFP NEXT T 

(IF HF» AGAIN, START NEW PASS 

[IF WFK NEXT SUBPASS 



.SBTTL END OF PASS ROUTINE (MODIFIED SYSMAC) 

[•INCREMENT THE PASS NUMBER tSPASS) 
[•LOOP FOB 256, SURPASSES TO MAKE A PASS 
(•IF SW<ie>i0, DING BELL ON PASS END 
{•IF SW<t2>=0, TYPE STATISTICS ON PASS END 
[•IF THERE'S A MONITOR, GO TO IT 
[• ELSE JUMP TO NEWPAS 





MFO 


,RWHA«I 




BIT 


•BIT04,R» 




BEQ 


SEOP 




BIT 


ISW01,0SWR 




BNE 


tEOP 




MOV 


IBIT12,P1 




MED 


.RFLAG 




BIT 


R1,R0 




BEQ 


IS 




BIC 


R1,R0 




BR 


2S 


ISl 


BIS 


R1,R0 


2s: 


MED 


,WFLAG 




BIT 


R1,R0 




BNE 


«EOP 




JMP 


0ISUBPAS 



SEOP: 



CLB 


StBFLG 


CLR 


STSTNM 


CLR 


STIMES 



(ZERO ERROR FLAG 

(ZERO TEST NUMBER 

[7.FB0 NUMBER OF ITERATIONS 

(SUBPASS LOOP ? 
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3297 


022002 


•00400 






I0e: 


.WORD 


256. 


[USE 256. SUBPASSES PER LOOP 


3298 


•22004 


•03402 








BLE 


US 


[NO, GO bUHP PASS COUNTER 


3299 


•22006 


000137 


003516 






JMP 


0ISUBPAS 


(NEXT SUB PASS 


3300 


•22012 


012737 






lis: 


MOV 


(PC)t,9(PC)t 


[RESTORE COUNTER 


3301 


•22014 


000400 








.WORD 


256. 


( 


3 302 


•72016 


•22002 








.WORD 


108 


( 


3303 


















3304 


•22020 


005237 


001210 






INC 


SPASS 


[INCREMENT PASS COUNT, 


3 305 


•22024 


•42737 


100000 


001210 




BlC 


1100000, SPASS 


; BUT NEVER LET IN GO NEGATIVE 


3306 


•22032 


•05327 








DEC 


(PC)» 


(PASS LOOP 7 


3307 


•22034 


•00001 






seopct: 


.WORD 


1 


[FALL THRU 


3308 


•22036 


BB3027 








BGT 


SDOAGN 


[YES 


3309 


322040 


012737 








HOV 


(PC)«,0(PC)* 


[RESTORE COUNTER 


3310 


•22042 


000001 






sendct: 


.WORD 


1 


( 


3311 


•22044 


•22034 








.WORD 


SEOPCT 




3312 


















3313 


•22046 


032777 


002000 


157070 




BIT 


tSH10,»SHR 


[BELL ON PASS END ? 


3314 


•22954 


•01002 








BNE 


IS 


[NO 


3315 


•22056 


10440] 


001172 






TYPE 


.SBELI 


(YES 


3316 


















3317 


•22062 


032777 


010000 


157054 


IS: 


BIT 


tSWl2.fiSMR 


(INHIBIT MESSAGE 2 


3318 


022070 


001002 








BNE 


SGET42 


(YES 


3319 


•22072 


004737 


022122 






JSP 


PC, STATS 


[TYPE STATISTICS 


3320 


















3321 


•22076 


813700 


000042 




6GET42I 


MOV 


0142, R0 


[GET MONITOR ADDRESS 


3322 


•22102 


001405 








BEQ 


SDOAGN 


[NO MONITOR 


3323 


•22104 


800005 








RESET 




(CLEAR WORLD 


3324 


•22106 


004710 






SENDAD: 


JSR 


PC,(R0) 


[GO TO MONITOR 


3325 


•22110 


•00240 








NOP 




[ 


3326 


•22112 


•00240 








NOP 




[RESERVED FOR ACIIJ 


3327 


•22114 


800240 








NOP 




[ 


3323 


















3329 


•22116 


•00137 


003450 




SDOAGN! 


JMP 


»«NEWpAS 


[RETURN 
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.SBTTL STATISTICS TIPEOUT SUBROUTINE 

J.THIS ROUTINE TIPES OUT A NICELY FORMATTED REPORT 

(•CONTAINING STATISTICS ON THE NUMBER OF OPERANDS 

■•USED IN DIFFERENT SELECT CASES FOR THE »ADD, «SUB, 

I»tMUL, AND tOIV ROUTINES. THE DATA VALUES ARE TAKEN 

(•FROM THE COUNTERS AOOC?, MULC7, AND DtVC?. 



3539 








3331 








3332 








3333 








3334 








333S 








3336 








3337 








3138 








3339 








3340 


023132 


010046 




3341 
334J 


032134 


012700 


022230 


3343 


022130 


001404 




3)44 


023133 


104401 


023317 


3345 


•32136 


004737 


023202 


3 3 46 


032143 


012700 


023354 


3347 


033146 


001404 




3348 


(33150 


104401 


033664 


3349 


033154 


004737 


032202 


33Sa 


022160 


013700 


022273 


33S1 


022164 


001404 




33S2 


033166 


104401 


033055 


33J3 


023173 


094737 


022203 


33S4 








3355 


022176 


013609 




3356 


023200 


000207 




3357 








3358 








3359 


022202 


013046 




3360 


(22204 


104403 




3361 


(32206 


006 




3362 


(22207 


000 




3)63 


033210 


005710 




3364 


023212 


00140) 




3365 


(22214 


194401 


022)12 


3366 


(23230 


000770 




3367 


(33222 


104491 


023314 


3368 


(32226 


(00307 




3369 








3)70 








3371 








3)72 


023330 


(02526 


002540 


3)73 


033336 


002544 


002546 


3374 


(32244 


002532 


003534 


3375 


032252 


000000 




3376 


(22254 


092550 


002554 


3377 


»23263 


002560 


002562 


3378 


022270 


000000 




3)79 


022272 


002564 


003572 


3380 


(22)00 


002576 


093600 


3381 


(33 306 


(02579 


000909 


3)83 








))e3 








3)84 


033312 


000011 




3)85 


033314 


005015 


000 



)«CALLED BII J 

!• 

MOV B9/-(SP) 



MOV 

BEU 

TYPE 

JSR 

MOV 

BEQ 

TYPE 

JSR 

HOV 

BEQ 

TYPE 

JSR 

HOV 
RTS 



ISVEC1.R0 

IS 

f SHDR1 

PC. 10$ 

I5VEC2.R0 

3< 

,SHDR3 

PC. I 09 

ISVEC),R0 

3t 

rSHDR) 

PC, 101 

(SP)t,R0 
PC 



PC. STATS 

jSAVE REGISTERS 

[FIRST DATA LINE AODR VECTOR 

;NONC IF ZERO 

(HEADER 

(DATA LINE 

(SECOND DATA LINE ADDH VECTOR 

(NONE IF ZERO 

(HEADER 

(DATA LINE 

(THIRD DATA LINE ADOB VECTOR 

(NONE IF ZERO 

(HEADER 

(DATA LINE 

(RESTORE REGISTERS 
(EXIT 



1081 



IKl 



[•INTERNAL 5UBR FOR DATA LINE TYPEOUT 



MOV 

TYPOS 

.BYTE 

.BYTE 

TST 

BEO 

TYPE 

BR 

TYPE 

RTS 



8(B0)*.-(SP1 



CB0) 

lit 

.SHT 

19> 

.SCRLF 

PC 



MOVE NUMBER OH STACK, BUMP TO NEXT 
•TYPE OCTAL 
(MAX 6 DIGITS 
(SUPPRESS LEADING ZEROS 
(BUMPED TO LAST VECTOR ? 
(YES, ONTO NEXT LINE 
[TYPE A <HT> 

(CONTINUE HUH THIS LINE 
(TYPE A <CR><LF> 
[DONE 



[•DATA vectors: „ _, „„^ , „ 

003542 SVEClI .HORO ADDC0, AD0C5, ADDC6, ADDC7 , ADDC8 , ADDCl . A0DC2 . ADDC3 , ADDC4, B 

002530 
0025)6 

002556 SVEC2t .NORD MULC0, MULC3. MULC3, MULC4, MULC5,MULC1 ,0 

003553 

003574 SVEC3: ."ORD DIVC0, DIVC3,D1VC4,DI VC5,0IVC6,0IVC1 ,01 VC3, 

002566 

[•HEADERS, ETC! 
SHTi .ASCIZ <11> [<HT> 

SCRLF: .ASCIZ <15><12> |<CR><LF> 
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3386 
3387 
3388 
3)89 
3)90 
3)91 
3392 
3)93 
)394 
3395 
3)96 
3397 
3)98 
3399 
3400 
3401 
3402 
3403 
3404 

3405 
3496 
3497 
3408 
3409 
3410 
3411 
)412 
)413 
3414 
3415 

3416 
3417 
3418 
3419 
3420 
3431 
3433 
3433 
3434 
3425 
3436 
3437 
3438 
3439 
3439 
3431 
3433 
3433 
34)4 
34)5 
34)6 
3437 
3438 
3439 



023317 
(33333 
(33330 
023336 
(33344 
022347 
032354 
022362 
023370 
(33376 
(22404 
(22413 
033430 
033436 
(32432 
(2244:1 
(22446 
•23454 
023461 

023466 
•22474 
033503 
033510 
033516 
(33534 
(22532 
(22540 
0725 46 
•33554 
032561 

022566 
033574 
022602 
023610 
(22616 
022624 
033633 
(32640 
022646 
P33654 
023663 
033664 
(33673 
033700 
073706 
(33714 
(33716 
033734 
(337)3 
(33740 
023746 
033754 
(33763 
(33770 



015 
035053 
(53101 
051503 
005015 

050 
036449 
047049 
051533 
053449 
043516 
049524 
042524 
096451 
042191 
(29192 
053522 
051516 

124 

036411 
(5 11 95 
026455 
047125 
047514 
047411 
004469 
030043 
0)6501 
047040 
116 

004522 
030U4 
941101 
053117 
042457 
094595 
030043 
0)6592 
041949 
044123 
(00012 
005915 
(59111 
05 1 5 1 6 
044524 
005015 
047524 
(26455 
(43122 
(36455 
043116 
053517 
036501 
037504 



005012 
020052 
051511 
025040 
012 
047516 
040440 
046525 
040440 
051516 
030104 
030114 
942507 
005012 
027504 
047111 
052103 
006472 
952117 

026455 
046106 
094455 
042504 

026527 
039130 
050117 
047411 
004460 
006517 
046525 

047524 
027537 
043514 
046101 
040516 
050117 
047411 
004460 
030075 
043111 

053515 
054514 
051124 
047117 

040534 
047455 
047514 
036411 

051105 
036455 
020060 
051117 



052123 
044524 
035952 

042524 
046114 
042502 
042532 
043511 
041517 
047111 
051523 

052533 
953123 
047511 
013 
046101 

053117 
053517 
026455 
943123 
936455 
0)6591 
040449 
030129 
030040 
012 
043592 

040524 
047195 
052011 
053440 
046102 
941949 
02012^ 
050117 
02001 1 
006524 

052114 
044449 
041535 
93513) 

004514 
043536 
936537 
053455 
046106 
004455 
047101 
005015 



.ASCII 

.ASCII 



<15><13><12> 

"••• STATISTICS 



••••<15><12><I2> 



.ASCII "(NOTE - ALL NUMBERS ARE UNSIGNED OCTAL INIECEKS) "< 15>< 12>< 1 2> 



.ASCII "ADD/SUB 1HSTRUCTI0NSI"<15><12> 



ASCII "TOTAL — OVERFLOU --UNDEBFLOU — . OP »=9 OP Al 



NO"<l 
5><12> 



.ASCIZ "Number total w/enable total h/enable op bib op b»0 op b«0 



shift"< 

15><12> 



SHDB2I .ASCII <15><12>"MULTIPLY INSTRUCTIONS! "< 15><12> 



ASCII "TOTAL OVERFLOW— — UNDERFLOW — . A=0 AND/0R"<1 5X1 2> 
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3440 


022776 


052516 


041115 


051105 


3441 


023004 


052011 


052117 


046101 


3442 


023012 


053440 


042457 


040516 


3443 


02 3020 


046102 


004505 


047524 


3444 


023026 


040524 


020114 


027537 


3445 


023034 


047105 


041101 


042514 


3446 


023042 


020011 


020040 


041040 


3447 


023050 


030075 


005015 


000 


3448 


023055 


015 


042012 


053111 SHDR3: 


3449 


023062 


042111 


020105 


047111 


34S0 


02387a 


052123 


052522 


052103 


3451 


023076 


047511 


051516 


006472 


3452 


033104 


012 






3453 


02310S 


124 


052117 


046101 


3454 


023112 


026411 


026455 


053117 


3455 


023120 


051105 


046106 


053517 


3456 


023126 


026455 


004455 


026455 


34S7 


023134 


047125 


042504 


043122 


34Se 


023142 


047514 


026527 


026455 


3459 


023150 


020011 


052516 


042515 


3460 


023156 


004522 


042040 


047105 


3461 


023164 


046517 


005015 




3462 


023170 


052516 


041115 


051105 


3463 


023176 


052011 


052117 


046101 


3464 


023204 


053440 


043457 


040516 


3465 


033212 


B46102 


004505 


047524 


3466 


023220 


040524 


020114 


027527 


3467 


023226 


047 105 


041101 


042514 


3468 


023234 


020011 


020040 


036501 


3469 


023242 


004460 


030040 


041040 


3470 


023250 


030075 


005015 


000 


3471 




023256 







.ASCIZ "NUMBER TOTAL N/ENABlE TOTAL M/ENABLE 



.ASCII <15><12>"DI\(IDE INSTRUCT10NSI»<15><12> 



B»B"<15><12> 



.ASCII "TOTAL 



—UNDERFLOW-.- NUMER DENOM»<15><12> 



.ASCII "NUMBER TOTAL N/ENABLE TOTAL W/ENABLE 



B=0"<15><12> 



;BACK TO AN EVEN BOUNDARY 
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3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 



023256 
023262 
023266 
023373 
033276 
023303 



012637 
013637 
170337 
170337 
005737 
100005 



002370 
002372 
003363 
003364 
003363 



023314 
023316 
023320 
023324 

033330 



000401 
104015 
013746 
013746 
000003 



002372 
003370 



.SBTTL FPP TRAP CATCHER 



033304 032737 040000 002362 
B23312 001001 



fppilt: 


MOV 


(SP)*,FPPOPC 




MOV 


(SP)»,FPPOPS 




STFPS 


(PS 




STST 


FEC 




TST 


FPS 




BPL 


1$ 




BIT 


4040000. FPS 




BNE 


1$ 




BR 


2e 


IS: 


ERROR 


15 


3S: 


MOV 


FPPOPS,-(SP) 




MOV 


FPPOPC.-(SP) 




RTI 





;POP OLD PC FOR DISPLAY 
jPOP OLD PS FOR DISPLAY 
jGET FPS 
;GET FEC/FEA 
;TEST ERROR BIT 

• OFF - NO ERROR BIT SET, BUT TRAPPED 
;0N - IT SHOULD BE ON A TRAP 
•TEST INTERRUPT ENABLE BIT 

;0N - INTR DISABLED, BUT TRAPPED 
;OFF - ABLE TO INIB, SO IGNORE IT, 

• AND SKIP THE ERROR 
jSIGNAL UNEXPECTED FPP TRAP 
;PUSH PSW 

;PUSH PC 

•CONTINUE, RECOVER AT LAST TRAP ONLY 
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349e 






3491 






3492 






3493 






3494 






3495 






3496 






3497 






3498 


B23332 


010546 


3499 


■23334 


012705 


3see 


023340 


000403 


35ei 


023342 


010546 


35B2 


023344 


012705 


35i>3 


023350 


010446 


35e4 


023352 


010346 


3505 


023354 


010246 


3506 


•23356 


010146 


35B7 


023360 


010046 


35eS 


023362 


005046 


3509 


023364 


0t660tl 


3510 


023370 


012003 


3511 


023372 


212004 


3512 


023374 


010066 


3513 


023 400 


011300 


3514 


023402 


011401 


3515 


023404 


012702 


3516 


023410 


009016 


3517 


023412 


006300 


3518 


023414 


006101 


3519 


023416 


0061 16 


3520 


02 3 420 


077204 


3521 


023422 


061316 


3522 


023424 


005501 


3523 


023426 


061401 


3524 


023430 


005516 


3525 


023432 


062700 


3526 


023436 


005501 


3527 


023440 


005516 


3528 


023442 


062701 


3529 


023446 


005516 


3530 


023450 


062716 


3531 


023454 


^61600 


3532 


023456 


005501 


3533 


023460 


010023 


3534 


023462 


010124 


3535 


023464 


077531 


3536 


023466 


005726 


3537 


023470 


012600 


3538 


023472 


012601 


3539 


023474 


012602 


3540 


023476 


012603 


3541 


023500 


012604 


3542 


023502 


012605 


3543 


023504 


000207 


3544 
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.SBTTL RANDOM NUMBER GENERATOR 



[•CALLED BK 



)• 



;• 

!• 
RANDL4i WOV 
MOV 
BP 
RANDL2I MOV 



BANDI 



000007 



001057 



MOV 

MOV 

MOV 

MOV 

MOV 

HOV 

CLR 

MOV 

MOV 

MOV 

HOV 

MOV 

MOV 

MOV 

CLR 

ASL 

ROL 

ROL 

SOB 

ADD 

ADC 

ADD 

ADC 

ADD 

ADC 

ADC 

ADD 

ADC 

ADO 

ADD 

ADC 

MOV 

MOV 

SOB 

ISI 

MOV 

MOV 

MOV 

HOV 

HOV 

MOV 

RTS 



JSR PC,RA»DL4 
.WORD N1.N2 



JSR PC>RANDL2 
,HORD N1.N2 



FOR DOUBLE FLOAT NUMBERS 
IN LOCATIONS Nl AND M2 

FOR SINGLE FLOAT NUMBERS 
IN LOCATIONS Nl AND N2 



R5,-CSP) 

14, R5 

RAND 

R5,-CSP) 

12, P5 

P4,-(SP) 

R3,-(SPI 

B2,-(SP) 

R1,-(SP) 

R0,-(SP) 

-CSP) 

16(5P),BB 

tR0)+,R3 

(B01t,B4 
R0,16(SP) 

(R3)>R0 

(R4),R1 

17, R2 

(SPl 

R0 

Rl 

(SP) 

R2,2S 

(R3),(5P) 

Rl 

(R4],R1 

(SP) 

1001057, R0 

Rl 

(SP) 

I047401>R1 

(SP) 

I 000006, (SP) 

(5P),R0 

Rl 

B0,(R3)» 

Rl,(R4)t 

{15, IS 

(SP)* 

(SP)t,R0 

(SP)t,B1 
(SP)*,R2 
(SP)*,R3 
(SP)«,R4 
(SP)»,R5 

PC 



SAVE R5 

4 HORDS AT EACH 

SAVE R5 

2 BORDS AT EACH 

SAVE REGISTERS 



EXTRA REGISTER 

GET PC FOR RETURN 
;FIRST NUHBER DEST PTR 
iSECOND NUMBER DEST PTR 
•STORE NEU RETURN ADDRESS 
';B0 INITIAL NUMBER 
;R1 INITIAL NUHBER 
[SHIFT COUNT 
[CLEAR LOB 
(SHIFT R0 LEFT 
, AND ROTATE CARRY INTO Rl 
, AND ROTATE CARRI INTO EXT 
;7 SHIFTS 

[ADD • TO MAKE • 129 
[PROPOGATE CARRV 
[ADO » TO HAKE « 129 
•PROROGATE CARRY 
[ADD LOW CONSTANT 
[PROPOGATE CARRY 

[PROPOGATE CARRY 

[ADD HIGH CONSTANT 

[PROPOGATE CARRY 

[ADD HIGHEST CONSTANT 

[REPRIHE R0 WITH HIGHEST DIGIT 

[PROPOGATE CARRY 

[SAVE R0 

[SAVE Rl 

[LOOP FOR BEQ'D NUMBER OF WORDS 

JPOP TEMP REG 



[RESTORE REGISTERS 
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3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 
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.SBTTL POLISH EXPRESSION ROUTINES 
.-POLISH EXPRESSION" ALGEBRA IS A STACK ""ENTEO PROCEDURE FOR 
•THE EVALUATION OF ALGEBRAIC EXPRESSIONS. BY THIS, WE MEAN 
ItHAT tJe StJck (IN OUR CASE, WE WILL BE "f "= W^,"*?"?'',.. 
.SYSTEM STACK USING B6 ) IS USED FOR THE STORAGE, ON A LAST IN- 
.FIRST OUT BASIS, OF ALL OPERANDS, AND RESULTS. ALL THE 
'arithmetic POuilNES (SPECIFICALLY, OUR 5ADD, SSUB, SMUL, AND 
"mIrOWNES) EXPECT THEIR TWO OPERANDS TO BE THE TOP TWO 
•ELEMENTS ON THE STACK, AND THEY LEAVE THEIR RESULT AS THE 
.TOP ELEMENT ON THE STACK, REMOVING (POPPING) THE INITIAL 
.OPERANDS IN THE PROCESS. OTHER ROUTINES ARE '"''""T "J,,^ 
^ADDING/REMOVING ELEMENTS TO/FROM THE STACK - SPOPX, TO TAKE 
"he TOP ELEMENT OFF, AND SPUSH, TO PUT A NEW ELEMENT ON THE 
.TOP. IT IS IMPORTANT TO NOTE THAT OPERATORS ""j''*; "°5' , 
•REFERENCE THE TOP TWO ELEMENTS ON THE STACK, THE OTHERS ARE 
IinIcCESSIBLEuJtIl OUTER ELEMENTS ARE OPERATED UPON. FOR 
.EXAMPLE, THE EXPRESSION: 
. 

E » (A ♦ B) • (C - D) 

ilcOULD BE EVALUATED BY THE POLISH EXPRESSION: 



iPUSH 

SPUSH 

SADD 

SPUSH 

SPUSH 

SSUB 



SMUL 
SPOPX 



A [OPERAND A ONTO STACK 
B [OPERAND B ONTO STACK 

[FORM A«B, SAVE FOB LATER 
C [OPERAND C ONTO STACK 
D [OPERAND D ONTO STACK 

[FORM C-D ON TOP 

•MOTE - THE TOP TWO OPERANDS ARE NOW: 

'[ (AtB) AND (C-D) 

•FORM (AtB) » (C-D) OH TOP 
E •POP RESULT FROM STACK INTO E 



023506 000134 



InOTE that OTHER POLISH EXPRESSIONS ABE POSSIBLE FOR COMPUTING 
.THIS EXAMPLE, IN GENERAL THERE IS MORE THAN ONE WAY TO 
•CALCULATE A GIVEN EXPRESSION. 



[.THIS ROUTINE ENTERS US INTO pOLISH MODE 

JpOLSH: JMP fl(R4)* [ENTER POLISH MODE 



••PUSH OPERAND ON STACK FROM LOCATION SPECIFIED 
[.IN CONTENTS OF NEXT WORD AFTER SPUSH CALL 
[•2/4 WORDS DEPENDING UPON F/D MODE 



023510 
023512 
023516 
023520 
023524 
023530 
023534 
023536 



012400 

105737 002400 

100004 

016046 000006 

016046 000004 

016046 000002 

011046 

000134 



SPUSH; 



is: 



HOV 

TSTB 

BPL 

HOV 

MOV 

MOV 

HOV 

JMP 



CR4)»,R0 

SFPS 

IS 

6(R0),-(SP) 

4(B0),-(SP) 

2(R0),-(SP) 

(R0),-(SP) 

0(B4)* 



GET PTR TO SOURCE 

PUSH DOUBLE ON STACK 
PUSH FLOAT ON STACK 



[•POP OPERAND FROH STACK INTO LOCATION SPECIFIED 
[.IN CONTENTS OF NEXT WORD AFTER SPOPX CALL 
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3601 






3602 


023S40 


012400 


3603 


*23;42 


012620 


3604 


»23;44 


012620 


3605 


023546 


105737 


3606 


023552 


100002 


3607 


02 3554 


01262<9 


3608 


023556 


012620 


1609 


■23560 


000204 



t»2/4 WORDS DEPENDING UPON F/D MODE 



tPOPXt 



KOV 


tR4)f 


R0 


MOV 


(SP)» 


(R0)« 


MOV 


(SP)» 


(P0)t 


TSIB 


SFPS 




BPL 


IS 




MOV 


(SP)t 


lR0)t 


MOV 


(SPlt 


(R0U 


RTS 


R4 





GET PTR TO DESTINATION 
jPOP FLOAT FROM STACK 



•POP DOUBLE FROM STACK 

! 

[EXIT POLISH MODE 
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3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 



.SbTTL FLOATING POINT SOFTWARE ROUTINES 

FLOATING POINT SOFTWARE ADD/SUBTRACT ROUTINES 

THIS ROUTINE TAKES THE TOP TWO ELEMENTS ON THE STACK 
(LENGTH OF 2 OR 4 WORDS DEPENDING UPON WHETHER THE 
F/D MODE 8IT7 IN SFPS IS OR 1 RESPECTIVELY) AND 
RFPLACtS THEM WITH THEIR SUM/DIFFEbENCE. 



EXAMPLE! 



SPUSH 

ADDRIOPERAND AJ 
SPUSH 

ADDR(OPEKAND M) 
SADD 
SPOPX 

ADDR(RESULT) 
RESULT<A«B 



SPUSH 

ADDR(0PERAND A) 
SPUSH 

ADDHIOPEHAND B) 
SSUB 
SPOPX 

ADDP(PESUI.T) 
RtSULT=A-B 



NOTE ROUTINE IS CALLED THROUGH POLISH MODE OPERATORS, 

ALL OPERATIONS ARE CARRIED OUT IN DOUBLE rLFNGTHs4) 
PRECISION MODE, SINGLE PRECISION OPERANDS ARE 
EXTENDED (VIA SCONV SUBROUTINE) WITH LOW-ORDER 
ZEROS, AND LATER TRUNCATED BACK TO SINGLE PRECISION 
FROM THE DOUBLE PRECISION RESULT, 

STATUS BITS: 

THE N, r, V, AND C BITS OF SFPS ARE SET AS FOLLOWS! 

Nil IE RESULT NEGATIVE (IE, PIT15 = I), 

ELSE N s H 

2=1 IF RESULT ZERO (IE, EXPONENT = 000(8)), 

ELSE Z : 
V » 1 IF ARITHMETIC OVERFLOW OCCURRED, 

ELSE V B 
C > ALWAYS 



ERROR COHPITIONSI 

IF AN ARITHMETIC OVERFLOW CO»D 
WILL BE SET TO ZERO IF THE OVE 
[BIT09) IS ZERO, IF THIS BIT 
WILL BE CORRECT, EXCEPT THE EX 
BY 400(R). ALSO, THE SFPS ERR 
SFEC WILL BE SET TO 10(8), AND 
THE VALUE IN LOCATION "EXPFEA 
THE V-BIT (BIT0l> WILL BE SET 
IF AN ARITHMETIC UNDERFLOW CON 
WILL RE SET TO ZERO IF THE UNO 
(BIT10) IS ZERO, IF THIS BIT 
WILL BE CORPECT, EXCEPT THE EX 
BY 400(R). ALSO, THE SFPS EUR 
SFFC WILL BE SET TO 12(9), AND 
THE VALUE IN LOCATION "EXPFEA" 



ITION OCCURS, THE RESULT 
RFLOW ENABLE BIT OF SFPS 
IS SET, THEN THE RESULT 
PONENT MILL BE UNDERBIASED 
OR BIT (BITlb) WILL BE SET, 
SFEA WILL BE LOADED WITH 
IN EITHER INSTANCE, 

OITION OCCURS, THE RESULT 
ERFI.OW ENABLE BIT OF SFPS 
IS SET, THEN THE RESULT 
PONENT WILL BE OVERBIASED 
OR BIT (BITIS) WILL BE SET, 
SFEA WILL BE LOADED WITH 



ALL REGISTERS ARE PRESERVED UPON ENTRY, 
EXIT, THE ROUTINES ARE RE-ENTRANT, 



AND RESTORED UPON 
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SEO 0077 



3666 
3667 










3668 










3669 










3670 


023562 


•62716 


100000 




3671 


02 3566 


•05237 


002536 




3672 


023572 


042737 


000017 


003100 


3673 


023600 


105737 


002409 




367t 


023604 


100402 






3675 


02 3606 


0047 37 


027622 




3676 


023612 


010046 






3677 


023614 


•10146 






367B 


•23616 


010346 






367') 


023620 


010346 






3680 


023622 


010446 






3661 


023624 


•10546 






3682 


023626 


•05046 






3683 


023630 


•05004 






3684 


•23632 


•05005 






3685 


023634 


•06366 


000024 




3686 


•2364D 


•06166 


000022 




3687 


•23644 


00616b 


000020 




3688 


•23650 


006166 


•00016 




3689 


023654 


156604 


000017 




3690 


•23660 


001011 






3691 


023662 


005726 






369? 


•2 3664 


032766 


077600 


000024 


3693 


•2 367 2 


001456 






3694 


•23674 


005337 


002532 




3695 


■2370« 


000137 


024712 




3696 


•23704 


106116 






3697 


•23706 


006366 


000034 




3698 


023712 


006166 


000032 




3699 


•23716 


006166 


00003O 




3700 


•23722 


006166 


000026 




3701 


•23726 


156605 


000027 




3702 


•23732 


•01042 






3703 


•23734 


106016 






3704 


023736 


006066 


000016 




3705 


•33742 


006066 


000020 




3706 


023746 


006066 


000022 




3707 


023752 


006066 


000024 




3708 


023756 


•16666 


000016 


000026 


3709 


•23764 


016666 


000020 


000030 


3710 


623772 


016666 


000022 


000033 


3711 


•24000 


016666 


000024 


000034 


3712 


•24006 


005726 






3713 


B24B10 


032766 


077600 


000024 


3714 


• 24t>lb 


001404 






3715 


024030 


005337 


002530 




3716 


024024 


000137 


024712 




3717 


•24030 


•05237 


002534 




3718 


•24034 


000137 


024672 




3719 


024040 


106166 


000001 




3720 


•24044 


112766 


000001 


000027 


3721 


024052 


112766 


000001 


000017 



esuBi 

SADD! 



!» ADAPTED FRO" PDP-11 FORTRAN SOFTWARE 
;• BV DONALD NORTH, SEPTEMBER, 1975. 



338; 
2S! 



ADD 

INC 

BIC 

TSTB 

BHI 

JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CLB 

CLR 

ASL 

ROL 

BOL 

ROL 

BISB 

BNE 

TST 

BIT 

BEQ 

INC 

JMP 

POLB 

ASL 

ROL 

ROL 

ROL 

BISB 

BNE 

RORB 

ROR 

ROR 

ROR 

ROR 

MOV 

MOV 

MOV 

MOV 

TST 

BIT 

BEG 

INC 

JMP 

INC 

JMP 

ROLB 

MOVB 

MOVB 



1100000, (SPl 

ADDC0 

•17,8FPS 

8FPS 

27$ 

PCSCONV 

R0,-1SP) 

R1,-(SP) 

B3.-CSP) 

R3,-(SP) 

R4,-(SP) 

B5,-CSP) 

-(SP) 

R4 

R5 

24(SP) 

23(SP) 

30(SP) 

UISP) 

17CSP),P4 

31< 

(SP)t 

1077600, 34(SP) 

328 

ADDC3 

3S 

(SP) 

34<SP) 

33(SP1 

30(SP1 

36(SP) 

27(5P),R5 

28 

(SP) 

16(SP) 

20(SP) 

22(SP) 

24(SP) 

16(SP1,26(SP) 

30(SP),30(SP) 

22(SP),32(SP) 

24(SP),34(SP) 

(SP)t 

1077600, 24(SP] 

328 

ADDCl 

i» 

ADDC3 

298 

l(SP) 

ll,37(SP) 

«1,17(SP) 



CHANGE SIGN OF TOP ITEM 

CIR! TOTAL NUMBER OF ADD/SUB 

CLEAR STATUS BITS N Z V C 

TtST MODE 

D-MODE 

D-MODE; CONVERT 3 F OPDS TO D 



SAVE ALL REGISTERS 



CLEAR SIGNS 
CLEAR EXPONENTS 



SHIFT OUT SIGN OF TOP ITEM 



SHIFT A] 

GET El 

JUMP IF NON ZERO 

FLUSH SIGNS 

Be0, As0 TOO ? 

YES, BOTH ZERO 

NO, CTR: B=0,A>0 

DONE 

GET SI 

SHIFT OUT SIGN OF 2ND ITEM 



SHIFT A3 

GET E2 

JUMP IF NON ZERO 

RECONSTRUCT Al 



FIRST ARG TO TOP OF STACK 



FLUSH SIGNS 

A«0, B=0 TOO 7 

YES, BOTH ZERO 

NO, CTR; Aa0, BI0 

DONE 

CTR: A30, B=0 

DONE, TRUE ZERO RESULT 

GET S2 

INSERT NORMAL BIT 
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3722 


•34060 


160405 




3723 


•24062 


•03011 




3734 


034064 


016600 


000036 


3735 


024070 


•16601 


000030 


3736 


•34074 


016602 


000032 


3727 


024100 


016603 


000034 


3728 


•24104 


000427 




3729 


•24106 


060504 




3730 


•24110 


016600 


000016 


3731 


034114 


•16601 


000020 


3732 


•24120 


•16602 


000022 


3733 


024124 


016603 


000024 


3734 


034130 


•16666 


000026 000016 


3735 


•34136 


916666 


000030 00002« 


3736 


•34144 


•16666 


000033 000033 


3737 


034152 


016666 


000034 000034 


3738 


•24160 


•00116 




3739 


•24162 


005405 




374J 


•24164 


136616 


000001 


3741 


924170 


001413 




3742 


•24172 


005403 




3743 


•34174 


0S5503 




3744 


•24176 


005501 




3745 


•34300 


005500 




3746 


024202 


005 402 




3747 


024201 


005501 




3748 


•24206 


005500 




3749 


024210 


005401 




3750 


024212 


005500 




3751 


•24214 


005400 




3752 


•34216 


•05705 




375J 


024220 


001466 




3754 


024333 


•23705 


177707 


3755 


034326 


01)3413 




3756 


034230 


016600 


000016 


3757 


•34334 


016601 


000020 


3758 


034340 


016602 


000022 


3759 


024244 


016603 


000024 


3760 


•24350 


•05337 


002535 


3761 


•24254 


000501 




3762 


024256 


•22705 


177770 


3761 


•34363 


003437 




3764 


024264 


•05700 




3765 


•24266 


•06746 




3766 


•24270 


032705 


177760 


3767 


034274 


•02411 




3768 


024276 


010303 




3769 


034300 


010103 




3770 


•24303 


010001 




3771 


•34304 


011600 




3772 


•34306 


063705 


000030 


3773 


•34313 


•01366 




3774 


024314 


005726 




3775 


•24316 


000437 




3776 


034330 


033705 


177775 


3717 


024324 


003415 





SUB 

BGT 

MOV 

MOV 

MOV 

MOV 

BR 

ADD 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

SWAB 

NEG 

CMPB 

BEQ 

NEC 

ADC 

ADC 

ADC 

NEC 

ADC 

ADC 

NEG 

ADC 

NEG 

TST 

BFO 

CMP 

BLE 

MOV 

MOV 

MOV 

HOV 

INC 

BR 

CMP 

BLE 

TST 

SXT 

CMP 

BLT 

MOV 

MOV 

MOV 

MOV 

ADD 

BNE 

TST 

BR 

CMP 

BLE 



R4,R5 

48 

26(SP),R0 

30(SP),R1 

33(SP1,R2 

34(SP),R3 

58 

R5,R4 

16(SP),R0 

20(SP),R1 

33(SP),R2 

24(SP),R3 

26(SP),16(5P) 

30(SP1,20(SP) 

32(SP),32(SP) 

34(SP1,34(SP) 

(SP) 

R5 

1(SP),(SP) 

68 

R3 

R2 

PI 

R0 

R2 

Rl 

R0 

Rl 

R0 

B0 

R5 

78 

1-57. ,R5 

88 

16(SP),R0 

20tSP),Rl 

33(SP),R2 

24(SP),R3 

ADDC4 

98 

•-8.,R5 

108 

R0 

• (SP) 

1-16. ,B5 

118 

R2,R3 

R1,R2 

R0,R1 

(SP),R0 

tl6.,R5 

128 

(SP)» 

78 

1-3, R5 

138 



R53I 

jum; 

R0= 

Rl' 

R2 

R3 

GO 

R5 

R0 

Rl 

R2 

R3 = 



E2-E 
IF 
A2 
B2 
C3 
02 
CHEC 

:E3-E 

Al 

:bl 
CI 
Dl 



1, R4»E1 
E3>E1 



K SIGNS 

R4«E2,E2>E1 



EXCHANGE SIGNS 

E1-E3 

COMPARE SIGNS 

SAME, GO CHECK EXPONENT 

NEGATE OPERAND 



CHECK EXPONENTS 

JUMP IF tl«E3 

ANY POINT IN SHIFTING? 

NO, ANSWER IS OPERAND 
WITH LARGER EXPONENT 



jCTRl NO SHIFT 

f 
CHECK t OF BITS TO SHIFT 
JUMP IF LESS THAN 1/2 WORD 

EXTEND SIGN 

JUMP IF LESS THAN 1 WORD 
SHIFT A WORD AT A TIME 



USE EXTENSION 
^ADJUST EXPONENT 
[TRY AGAIN 
[POP EXTENSION 
[SHIFT DONE 
jJUMP IF LESS THAN 4 TO SHIFT 

I 
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3778 


024326 


010416 




3779 


1124330 


0105 46 




3780 


824332 


810104 




3781 


•24334 


•73005 




3782 


024336 


•10205 




3783 


D24340 


073416 




3784 


(24342 


0103a4 




3785 


024344 


•10502 




3786 


«24346 


•10305 




3787 


024350 


073426 




3788 


•24352 


910503 




37S9 


•24354 


012604 




3792 


«243S6 


•00407 




3791 


024360 


005726 




3792 


•24362 


906300 




3793 


924364 


006001 




3794 


•34366 


•06003 




3795 


034370 


•06003 




3796 


024372 


005205 




3797 


024374 


002772 




3798 


•34376 


066603 


000024 


3799 


024402 


005503 




38ltd 


024404 


005501 




38DI 


024106 


005500 




3802 


024410 


•66603 


000032 


3809 


024414 


005501 




380t 


024416 


005500 




3805 


024420 


066601 


000030 


3806 


024424 


9B550i! 




3807 


024426 


066600 


000016 


38i»e 


•24432 


136616 


000001 


38*9 


024436 


001163 




3810 


•34443 


•30027 


001000 


3811 


034444 


•01405 




3812 


•34446 


006200 




3813 


024450 


006001 




3814 


•24452 


006002 




3815 


•24454 


006003 




3816 


•24456 


005204 




3617 


024460 


000304 




3818 


•24462 


001425 




3819 


024464 


105004 




3820 


034466 


052737 


000002 002400 


3821 


024474 


005237 


002540 


3822 


024500 


033737 


001000 002400 


3823 


024506 


001464 




3824 


024510 


•05337 


002542 


3825 


024514 


053737 


100000 002400 


3826 


•34522 


012737 


000010 002402 


3827 


•24530 


013737 


002376 002404 


3828 


034536 


150004 




3829 


•34540 


0B6026 




3830 


024542 


006004 




3831 


034544 


006001 




3832 


•34546 


006002 




3833 


•34550 


006003 







NOV 


R4,(SP) 




NOV 


R5.-(SP) 




NOV 


R1,R4 




ASHC 


R5,R0 




NOV 


R2,R5 




ASHC 


(SP),R4 




HOY 


R2rR4 




NOV 


R5,R2 




MOV 


P3.P5 




ASHC 


(SPX.R4 




MOV 


RS,R3 




MOV 


CSP)*,R4 




»B 


7$ 


131: 


T5T 


ISP)« 


1»«: 


ASR 


B0 




ROR 


Rl 




ROB 


R2 




ROR 


R3 




INC 


R5 




BLT 


108 


7(1 


ADD 


24(SP)<R3 




ADC 


R2 




ADC 


Bl 




ADC 


R0 




ADD 


22(SP),R2 




ADC 


Rl 




ADC 


Re 




ADD 


3»tSP).Rl 




ADC 


B0 




ADD 


I6(5P),B0 




CNPB 


1(5P),(SP) 




BNE 


14S 




BIT 


B0.I1000 




BEO 


94 




ASR 


R0 




ROR 


Rl 




ROR 


R3 




ROR 


R3 




INC 


P4 


9$! 


SUAB 


R4 




BEQ 


16S 




CLRB 


B4 




BIS 


I03.SFPS 




INC 


ADDC5 




BIT 


•001000. SFPS 




BEb 


34< 




INC 


ADDC6 




BIS 


•100000. srps 




MOV 


•10,»FEC 




MOV 


EXPEEA.SFF.A 


16$: 


BISB 


B0,R4 




ROR 


(SP)t 




ROR 


R4 




ROR 


Rl 




ROR 


R3 




ROR 


R3 



;SAVE EXP i SHIFT COUNT 

•SAVE Rl 

;SHIFT HIGH ORDER 

;SAVE R3 

;SHIFT IT 

|r3 done 

;SET UP UOK order 

;D0 LOh ORDER 

jRESTORE EXP TO R4 

POP EXTENSION 
SHIFT RIGHT 



COUNT LOOP 
FORM SUM 



CHECK FOR UNEQUAi. SIGNS 
CLEAN UP SUBTRACT 



JUMP IF NO NOBMAt BIT OVEBFLON 



INCREASE EXP 

MOVE EXP LEFT 

JUMP IF NO OVEBFLON 

CLEAR OVERFLOHED (BITS 

SET V BIT ON OVEiFLOW 

CTB; OVERFLOW ' 

OVERFLON ENABLED ? 

NO. ZERO RESULT 

CTB; OVERFLOW, ENABLED 

VES, SET ERROR BIT 

SET SFEC 

SET tFEA 

INSERT HIGH ORDER fBACTlON 

INSERT SIGN 
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3834 


•34552 


005503 








ADC 


R3 


3835 


•34554 


•05503 








AOC 


R2 


3836 


034556 


•05501 








ADC 


PI 


3837 


B3456>) 


•05504 








ADC 


R4 


3838 


034563 


103401 








BCS 


28$ 


3839 


034564 


102024 








BVC 


30$ 


3840 


034566 


053737 


000003 


003480 


2081 


BIS 


•83.SFPS 


3841 


•24574 


•05237 


003540 






INC 


ADDC5 


3842 


•24600 


033737 


081000 


003400 




BIT 


•081000. SFPS 


3843 


024606 


001*31 








BEQ 


398 


3844 


034610 


005337 


003543 






INC 


ADDC6 


3845 


024614 


•527 37 


100000 


803480 




BIS 


1188000. SFPS 


3846 


•24622 


012737 


000010 


002402 




MOV 


IIB.SFEC 


3847 


024630 


013737 


002376 


002404 




MOV 


EXPFEA.SFEA 


3848 


•24636 


•10466 


000034 




30S: 


MOV 


B4,24(SP) 


3849 


e34642 


010166 


000U26 






MOV 


H1.36(SP) 


3850 


•34646 


•10366 


000030 






MOV 


B2,38(SP] 


3851 


•34652 


010366 


000t}33 






MOV 


B3,32(SP) 


3852 


•24656 


000415 








BR 


3$ 


3853 


024660 


BB5726 






34t: 


1ST 


(SP)t 


3854 


024662 


000403 








BB 


29$ 


3855 


034664 


005237 


002544 




33$! 


INC 


ADDCT 


3856 


• 2467;t 


005726 








TST 


ISP)* 


3857 


•24672 


005066 


080024 




29SI 


CLB 


24(SP) 


3858 


•24676 


005066 


000026 






CLR 


26(SP) 


3859 


034702 


005066 


000030 






CLB 


30(SP) 


386tl 


024706 


005066 


000032 






CLB 


33(SP) 


3861 


•24712 


032766 


077600 


000024 


3S: 


BIT 


•877600, 34tSP) 


3862 


024720 


001003 








BNE 


17S 


3863 


•24722 


052737 


008004 


083400 




BIS 


104, SFPS 


3864 


S24730 


005766 


000024 




I7s: 


TST 


24CSP) 


3865 


024734 


100003 








BPL 


18$ 


3866 


034736 


053737 


000010 


003400 




BIS 


•10, SFPS 


3867 


•34744 


013605 






IBtl 


MOV 


(SP)t.R5 


3868 


034746 


013604 








HOV 


lSP)t,R4 


3869 


•34750 


013603 








MOV 


(SP)».R3 


3870 


•34752 


013603 








MOV 


(SP)t,R2 


3871 


•34754 


012601 








MOV 


(SPX.R1 


3873 


•24756 


012680 








HOV 


(SP)».Ra 


3873 


02476;! 


063706 


000810 






ADD 


•8..SP 


3874 


024764 


195737 


082400 






TSTB 


SFPS 


3875 


024770 


100404 








BMI 


36$ 


3876 


•34772 


013666 


000802 






HOV 


(SP)t.3(SP) 


3877 


•24776 


012666 


008003 






HOV 


(SP)»,2(5P) 


3878 


925002 


••0134 






2681 


JMP 


8(R4)« 


3879 
















3880 
















3881 


025004 


005700 






14(: 


TST 


R0 


3883 


025006 


B03014 








BGT 


33S 


3883 


025010 


001453 








BEQ 


33$ 


3884 


•35012 


•05403 








NFG 


R3 


3885 


•35014 


005502 








ADC 


B2 


3886 


•25016 


••55«l 








ADC 


Bl 


3887 


•25030 


005S00 








ADC 


R0 


3888 


025022 


••5403 








NEC 


R3 


3889 


•35024 


••S5«t 








ADC 


Rl 



OVERFLOW ON ROUND ? 

YES - SET V BIT 

CTB: OVERFLOW 

OVERFLOW ENABLED ? 

NO, ZERO RESULT 

CTB: OVERFLOW, ENABLED 

SET ERROR BIT 

SET SFEC 

SET SFEA 

STORE EXP AND SIGN 

INSERT LOW ORDER FRACTION 



FLUSH SIGN 
AND ZERO RESULT 
CTB: UNDERFLOW 
FLUSH SIGN 
ZERO RESULT 



SET Z BIT IF EXPONENT ZERO 
SET N BIT IF RESULT NEGATIVE 



RESTORE REGISTERS 



POP SECOND ARGUMENT 

FOR D MODE? 

D MODE 

F MODE - CONVERT 



(DONE 



iCHECH HIGH ORDER FRACTION RESULT 

;IF * SIGN OK 

iCHECK FOR ZERO RESULT 

!ABS VALUE 
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30919 


B25026 


005S00 






ADC 


B0 




3S91 


825030 


005401 






NEC 


Bl 




3892 


r25032 


005500 






ADC 


P0 ; 




3893 


■25034 


•05400 






NEC 


B0 ; 




3894 


•25036 


00031b 






SWAB 


CSP) i 


EXCHANGE SIGNS 


3895 


025040 


030027 


000400 


22SS 


BIT 


R0,»400 ,- 


CHECK NOBMAL BIT 


3896 


025044 


•01427 






BEQ 


19S ; 


JUMP IF NONE 


389? 


025046 


005704 






TSI 


B4 ! 


CHECK FOB UNDEBfLOW 


3896 


S250S0 


003203 






BGT 


98 ; 




3899 


025052 


032737 


002000 00240O 




BIT 


1002000. SFPS ; 


UNDERFLOW - IS II ENABLED 7 


39liie 


1)25060 


001701 






BEQ 


33S i 


NOr HAKE ZERO RESULT 


39ei 


025062 


•05237 


002544 




INC 


ADDC7 ; 


CIR: UNDERFLOW 


3962 


025066 


•05237 


002546 




INC 


ADDC8 ! 


CIH: UNDERFLOW, ENABLED 


3983 


025072 


•52737 


100000 002400 




BIS 


tl00000fSFPS ; 


SET EBROB BIT 


3904 


025100 


•12737 


000012 002402 




MOV 


•12,SFEC 


SET $FEC 


390S 


025106 


•137J7 


002376 002404 




HOV 


EXPFEA,«FEA 


SET $FEA 


3906 


025114 


•00304 






SWAB 


B4 


HOVE EXP LEFT 


3907 


025116 


105004 






CLPB 


R4 


CLEAR WHEBE FRACTION WILL GO 


3908 


025120 


000137 


024536 




JMP 


16$ 


ASSEMBLE NUMBER 


3909 


025124 


•05304 




19<! 


DEC 


R4 


DECREASE EXP 


3910 


025126 


•06303 






ASl. 


B3 


DOUBLE FRACTION 


391 1 


025130 


006102 






BOL 


B2 




3912 


025132 


006101 






BOL 


Rl 




3913 


025134 


806100 






BOL 


R0 




3914 


025136 


000740 






BP 


22S 




3915 


025140 


162704 


000010 


23S: 


SUB 


•8.,R4 


REDUCE tXP 


3916 


325144 


•05701 






TST 


Rl 




3917 


025146 


•01020 






BNE 


24S 


JUMP IF ONLY R0=0 


3918 


025150 


162704 


000020 




SUB 


116, .R4 




3919 


025154 


810201 






HOV 


B2,P1 




3920 


025156 


001012 






BNE 


25« 


JUMP IF R2 NON ZERO 


3921 


025160 


162704 


000020 




SUB 


•16.f B4 




3922 


025164 


•05703 






TST 


K3 




3923 


025166 


001422 






BEU 


21$ 


ANSWER IS ZERO 


3924 


025170 


150301 






BISB 


R3.RI 


HOVE BYTES TO R0,B1 


3925 


025172 


000301 






SWAB 


Rl 




3926 


025174 


•00303 






SWAB 


R3 




3927 


025176 


150300 






BISB 


B3,P0 




3928 


025200 


•05003 






CLB 


B3 


HAKE ALL OTHERS ZERO 


3929 


025202 


•00716 






BR 


22S 


GO NORHALIZE 


3930 


025204 


•10302 




25S: 


MOV 


B3<B2 




3931 


025206 


•05003 






CLB 


R3 




3932 


•25210 


000301 




24Si 


SWAB 


Rl 


MOVE LEFT 


3933 


•25212 


150100 






BISB 


R1,R0 




3934 


•25214 


105001 






CLBB 


Rl 




3935 


025216 


•00302 






SWAB 


R2 


• 


3936 


•25220 


150201 






BISB 


P2,BI 




3937 


025222 


105002 






CLBB 


B2 




3938 


•25224 


000303 






SWAB 


P3 


• 


3939 


•25226 


150302 






BISB 


B3,P2 




3943 


025230 


105003 






CLBB 


B3 




3941 


•25232 


•00702 






BP 


22$ 




3942 


025234 


•05016 




21S1 


CLB 


tSP) 


SET POSITIVE 


3943 


•25236 


005004 






CLB 


B4 


■ 


3944 


•25240 


000137 


024536 




JHP 


16$ 




3945 










;«END 


OF ADD/SUB 
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3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3999 
3999 
4000 
4001 



[•FLOATING POINT SOFTWARE MULTIPLY ROUTINE 

1 1 THIS ROUTINE TAKES THE TOP TWO ELEHENTS ON THE STACK 
■• (LENGTH OF 2 OB 4 WORDS DEPENDING UPON WHETHER THE 

F/D MODE BIT7 IN $FPS IS OH 1 RESPECTIVELY) AND 

REPLACES THEH WITH THEIR PRODUCT, 



>• 



)• exahple; 



I* 



!• 



$PUSH 

ADDB(OPEBAND A) 
$PUSH 

ADDPIOPEBAND B) 
$MUL 
SPOPX 

ADDB(BESULT) 
RESULT«A»B 

NOTE ROUTINE IS CALLED THROUGH POLISH MODE OPEBATOBS, 

ALL OPERATIONS ABE CSBRTED OUT IN DOUBLE (LENGTH=4) 
PRECISION HODF.. SINGLE PRECISION OPERANDS ARE 
EXTENDED (VIA 8C0NV SUBROUTINE) WITH LOW-OBDEB 
ZEROS, AND LAIEB TBUNCATED BACK TO SINGLE PBECISION 
FBOM THE DOUBLE PRECISION RESULT, 

STATUS BITS: 

THE N, Z, V, And C bits OF $FPS ARE SET AS FOLLOWS: 
N = 1 IF RESULT NEGATIVE (IE, BIT15 = 1). 

ELSE N » 
Z • 1 IF RESULT ZERO (IE, EXPONENT = 030(8)), 

ELSE Z s 
V « 1 IF ABITHHETIC OVERFLOW OCCURRED, 

ELSE V = 
C > ALWAYS 

ERROR CONDITIONS: 

IF AN ARITHMETIC OVERFLOW CONDITION OCCURS, THE RESULT 
WILL BE SET TO ZERO IF THE OVERFLOW ENABLE BIT OF SFpS 
(BIT09) IS ZERO, IF THIS BIT IS SET, THEN THE RESULT 
WILL BE CORBECT, EXCEPT THE EXPONENT WILL BE UNDERBIASED 
BY 400(8). ALSO, THE $FPS ERROR BIT (BIT15) WILL BE SET, 
$FEC WILL BE SET TO 10(8), AND 8FEA WILL BE LOADED WITH 
THE VALUE IN LOCATION "EXPFEA". IN EITHER INSTANCE, 
THE V-BIT (BIT01) WILL BE SET. 

IF AN ARITHHETIC UNDERFLOW CONDITION OCCURS, THE RESULT 
WILL BE SET TO ZERO IF THE UNDERFLOW ENABLE BIT OF SFPS 
(BIT10) IS ZERO. IF THIS BIT IS SET, THEN THE RESULT 
WILL BE CORRECT, EXCEPT THE EXPONENT WILL BE OVEBBIASED 
BY 400(8). ALSO, THE $FPS EBBOB BIT (BIT15) WILL BE SET, 
$FEC WILL BE SET TO 12(8), AND 8FEA WILL BE LOADED WITH 
THE VALUE IN LOCATION "EXPFEA", 



ALL REGISTERS ARE PRESERVED UPON ENTBY, 
EXIT, THE ROUTINES ARE RE-ENTRANT. 



ADAPTED FROM PDP-11 FORTRAN SOFTWARE 
BY DONALD NORTH, SEPTEMBER, 1975, 



AND RESTORED UPON 
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4002 








*»»i 








4804 


>25244 


005237 


002550 


4ee; 


025250 


042737 


000017 002 400 


4ee6 


»25256 


105737 


002400 


4»e7 


825262 


100402 




4«a8 


025264 


004737 


027622 


4009 


025270 


010046 




4eiei 


025272 


010146 




4D11 


025274 


010246 




4012 


02527b 


010346 




4013 


025 300 


010446 




4014 


025302 


010546 




4015 


025304 


006366 


000014 


4016 


025310 


006146 




4017 


B253I2 


005046 




4018 


825314 


116616 


000021 


4019 


025320 


001436 




4020 


K25322 


116666 


000020 000021 


4021 


025330 


000261 




4022 


025332 


006066 


000020 


402) 


025336 


116666 


000023 000020 


4024 


B25344 


000366 


000022 


402S 


025350 


116666 


000025 000>)22 


4026 


025356 


000366 


000024 


4027 


025362 


116666 


000027 000024 


4028 


02537b) 


000366 


000026 


402<< 


025374 


105066 


000026 


4030 


025400 


006366 


000030 


4011 


025404 


005566 


000002 


4032 


025410 


105766 


000031 


4033 


025414 


001005 




4034 


025416 


022626 




4035 


025420 


005237 


002552 


4036 


025424 


000137 


026100 


4037 


«25430 


005000 




4038 


025432 


005001 




4039 


625434 


005002 




4040 


025436 


005003 




4041 


025440 


005005 




4042 


025442 


006066 


000030 


4043 


025446 


012746 


000020 


4044 


025452 


016604 


000040 


4045 


025456 


001404 




4046 


025460 


004737 


026320 


4047 


025464 


012716 


000020 


4048 


02547J 


016604 


000036 


4049 


025474 


001003 




4050 


025476 


005766 


000040 


40S1 


•25502 


001406 




4052 


025504 


B94737 


026314 


4053 


025510 


004737 


026222 


4054 


•25514 


012716 


000020 


4055 


025520 


016604 


030034 


4056 


025524 


001006 




4057 


025526 


005766 


000036 



!• 

IHC 

BIC 

I5TB 

BXI 

JSR 

MOV 

MOV 

HOV 

MOV 

MOV 

MOV 

tSL 

ROL 

CLB 

MOVB 

BEQ 

MOVB 

SEC 

ROP 

MOVB 

SWAB 

MOVB 

SWAB 

MOVB 

SUAB 

CLRB 

ASL 

ADC 

ISTB 

BNE 

CMP 

INC 

JMP 

CLR 

CLP 

CLR 

CLR 

CLR 

ROR 

MOV 

MOV 

BES 

JSR 

MOV 

MOV 

BNE 

TSI 

BEQ 

JSR 

JSP 

MOV 

MOV 

BNE 

TST 



MULCa 
•17,SFPS 
JFPS 
15S 

pc.scoNv 

R0,-CSP) 

R1,-(SP) 

P2,-CSP) 

k3,-(SP) 

R4.-(SP1 

R5,-(SP1 

141SP) 

-CSP) 

-tSP) 

21(SP),(SP) 

1$ 

20CSP),21(SP) 

20(SP) 

23(SP),20(SP) 

22(SP) 

25(SP),22(SP1 

24(SP1 

27(5P1.24(5P) 

26tSP) 

26(SP1 

30(SP) 

2(SP) 

SUSP) 

2S 

lSP)*,(SP)t 

MULCl 

3S 

pe 

Rl 

R2 

R3 

R5 

30(SP) 

«16.,-(SP> 

40(SP),R4 

4S 

PC,30S 

I16,>(SP) 

36(SP),R4 

5« 

40(SP) 

6S 

PC,31S 

FC,32$ 

I16.>(SP) 

34(5PliB4 

7S 

36(SP) 



iCTP: TOTAL NUMBER Mut 

;CLEAR STATUS BITS N z' V C 

;TEST MODE 

;D-HODE 

jF-MODE: CONVERT 2',F'0PDS TO D 



jSAVE ALL REGISTERS 



SHIFT MULTIPLICANC) 

KEEP SIGN 
.CLEAR EXPONENT 
(KEEP multiplicand' EXP 
;ANS)lER ZERO 

jshift fraction left 

INSERT NORMAL BJTi 



EXTRA BITS 

SHIFT HIGH MULTIPLIER 

PRODUCT SIGN 

JUMP IF NON ;ER0 

FLUSH SIGN AND, EXPONENT 

CTRI As0 ASO/OR B=0 

CLEAR PRODIJET 



CLEAR C BIT OVERFLOW CATCHER 

SIGN IS *. 

ITERATIOrf COIUNT 

GET LOWEST ((RDER MULTIPLIER 

JUMP IF NO Bits HERE 

RESTORE tOUNT 

GET NEXT LOWEST FRACTION 

WORK TO 'no' 

NO PRODUCT YET 

ONE BIT FULL PRECISION 

NEXT TO HIGHEST ORDER FRACTION 



e PAGE 8 3 
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4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

407 3 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 



•25532 

»25534 

025540 

025542 

»25546 

025552 

025556 

025562 

•25566 

025570 

•25572 

025574 

025576 

825600 

025602 

025604 

025606 

»25613 

•25612 

02S614 

025616 

•25622 

•25624 

025630 

025636 

025640 

02564 4 

025652 

02S660 

025666 

•25673 

025674 

025676 

025704 

•25710 

•25716 

025720 

•25724 

025732 

025740 

•25746 

•25750 

•25752 

•25754 

025756 

•25760 

•25762 

•25764 

•25766 

•25770 

•25772 

•25774 

•25776 

•26000 

•26002 

•26004 



001003 

•05766 

001402 

004737 

•16604 

012716 

004737 

004737 

005726 

063601 

006303 

006102 

006101 

006100 

103405 

006303 

006102 

006101 

•06100 

•05304 

162704 

0K3022 

065237 

032737 

001517 

005237 

0527 37 

012737 

•13737 

000427 

022704 

002024 

052737 

005237 

•32737 

•01467 

005237 

052737 

012737 

01J737 

105003 

150203 

•00303 

105002 

150102 

000302 

105001 

150001 

000301 

105000 

150400 

000300 

•06»26 

006000 

•06001 

•06002 



026222 
000032 
e00t*07 
026222 
026226 



7s: 

8t: 



00240(4 
002402 
002404 



000200 

002560 
002000 

002562 
100000 
000012 
002376 

000377 



000B02 00240a 

002554 

001000 002400 

002556 

100000 002400 

000010 002402 

002376 002404 



BNE 

TST 

BEO 

JSR 

HOV 

MOV 

JSP 

JSR 

TST 

ADD 

ASL 

ROL 

ROL 

ROL 

BCS 

ASL 

ROL 

KOL 

ROL 

DEC 

SUb 

BGT 

INC 

BIT 

BEQ 

INC 

BIS 

MOV 

MOV 

BR 

CMP 

BCE 

BIS 

INC 

BIT 

BEQ 

INC 

BIS 

MOV 

MOV 

CLRB 

BISB 

SWAB 

CLRB 

BISB 

SHAB 

CLBB 

BISB 

SHAB 

CLRB 

BISB 

SWAB 

ROR 

ROB 

ROR 

ROR 



7S 

4«(SP) 

88 

PC,32S 

32CSP).R4 

»7,(SP) 

PC, 328 

PC,33S 

<SP)t 

(SP)t.R4 

R3 

R2 

PI 

R0 

95 

R3 

R2 

Rl 

B0 

R4 

•200, R4 

10S 

MULC4 

4002000, (EPS 

128 

HULC5 

1100000, SFPS 

I12,5FEC 

EXPFEA,SFFA 

118 

«377,R4 

118 

«02,SFPS 

MULC2 

1001000, 8FPS 

128 

MULC3 

8100000, SFP5 

110, SPEC 

EXPFEA,SFEA 

R3 

R2,R3 

R3 

R2 

Rt,R2 

R2 

Rl 

R0,R1 

Rl 

R0 

R4,R0 

R0 

CSP)» 

RO 

Rl 

R2 



GET HIGH ORDER BITS 
SEVEN OF THEM 

jNORHAL BIT 
FLUSH ITERATION COUNT 
ADD FXP 
SHIFT OUT NORMAL BIT 



NORMAL BIT FOUND 



HAVE IT 

ADJUST EXP 

REMOVE BIAS FROM EXP 

BR IF NO UNDERFLOW 

CTR: UNDERFLOW 

UNDERFLOW - IS IT ENftBLED 7 

NO, MAKE ZERO RESULT 

CTR; UNDF.RFLOW, ENABLED 

SET ERROR BIT 

SET SFEC 
,SET SFEA 
jCONTINUE 

[CHECK FOR OVERFLOW 
;BR IF NO OVERFLOW 
;SET V BIT ON OVERFLOW 
;CIR: OVERFLOW 
jOVERFLOW ENABLED 7 
jNO, ZERO RESULT 
;CIR: OVERFLOW, ENABLED 
,-SET ERROR BIT 
;SET SFEC 
;SET SFEA 

'(SHIFT FRACTION RIGHT 



GET PRODUCT SIGN 
PUT IN RESULT 
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4114 


1)26006 


006003 








ROR 


R3 




4115 


»26010 


005503 








ADC 


R3 


.•ROUND RESULT 


4116 


tl26I)12 


005502 








ADC 


R2 




4117 


626014 


•05501 








ADC 


Rl 




4118 


>26l)16 


005500 








ADC 


P0 




4119 


i>26(l2e 


103401 








BCS 


16$ 


;OVERfLOtl ON ROUND ? 


412B 


»26022 


102032 








BVC 


13S 




41J1 


•26U24 


052737 


000002 


002400 


16«: 


BIS 


I02,»FPS 


•YES - SET V BIT 


4122 


»26e32 


005237 


002554 






INC 


MU1.C2 


,-CTR: OVERFLOU 


4123 


D26036 


032737 


001000 


002400 




BIT 


1001000, IFPS 


lOVERFLOU ENABLED 7 


4124 


»26ll44 


001415 








BEO 


3S 


;N0, ZERO RESULT 


4125 


826046 


005237 


002556 






I»C 


MULC3 


;CTRI OVERFLOH, ENABLED 


4126 


>26052 


052737 


100000 


002400 




BIS 


1100000, 4FPS 


(SET ERROR BIT 


4127 


026060 


B12737 


000010 


002402 




MOV 


I10,<FEC 


JSET SFEC 


4128 


026066 


013737 


002376 


002404 




MOV 


FXPFEA,SrFA 


;SET SFEA 


4129 


026074 


000405 








BR 


13S 


(CONTINUE 


4130 


026076 


005726 






12(1 


TST 


(SP)» 


(FLUSH SIGN 


4131 


026100 


005000 






3ti 


CLR 


R0 


(CLEAR RESULT 


4132 


026102 


BB5001 








CLB 


Rl 




4133 


026104 


005002 








CLR 


B2 




4134 


026106 


005003 








CLR 


R3 




4135 


r26110 


010066 


000024 




13S: 


MOV 


R0,24CSP) 




4136 


026114 


010166 


000026 






MOV 


RI,26(SP) 


JsTUFF RESULT 


41)7 


026120 


910266 


000030 






MOV 


R2,30(SP) 




4138 


026124 


010366 


000032 






MOV 


B3,32(SP) 




4139 


026130 


032766 


077600 


•00024 




BIT 


1077600, 24(SP) 


•SET Z BIT IF EXPONENT ZERO 


414e 


026136 


•01003 








BNF 


17» 




4141 


026140 


052737 


000004 


002400 




BIS 


t04,SPPS 




4142 


026146 


•05766 


000024 




1741 


TST 


24(SP) 


SsET N BIT IF RESULT NEGATIVE 


4143 


026152 


100003 








BPL 


18S 




4144 


026154 


052737 


000010 


002400 




BIS 


ll0,<rPS 




4145 


026162 


812605 






msi 


MOV 


(SP>t,R5 




4146 


026164 


012604 








MOV 


(SP)t,R4 




4147 


026166 


012603 








MOV 


1SP)»,B3 


(RESTORE REGISTERS 


4148 


026170 


012602 








MOV 


(SP)t,R2 




4149 


02617i 


012601 








MOV 


(SP)»,R1 




415a 


026174 


•12600 








MOV 


(SPJ»,R0 




4151 


026176 


062706 


•00010 






ADD 


«e.,sp 


•CLEAR SECOND OPERAND OFF STACK 


4152 


026202 


105737 


002400 






TSTB 


<FPS 


(F OR D MODE 


4153 


026206 


100404 








BMI 


14« 


(D-MODE 


4154 


026210 


012666 


000002 






MOV 


ISP)+,2(SP) 


(F MODE - CONVERT 


4155 


•26214 


•12666 


000002 






MOV 


ISP)*,2(SP) 




4156 


026220 


000134 






14S: 


JMP 


»(R4)» 


(RETURN 


4157 


















4158 


026222 


006204 






32S> 


ASR 


1<4 


(TEST NEXT MULTIPLIER BIT 


4159 


•26224 


103022 








BCC 


34S 


(JUMP IF ZERO 


4160 


•26226 


066603 


000032 




33»! 


ADD 


32(SP),R3 


(ADD IN MULTIPLICAND 


4161 


026232 


005502 








ADC 


R2 




4162 


•26234 


005501 








ADC 


Rl 




4163 


026236 


005500 








ADC 


R0 




4164 


026240 


B05S05 








ADC 


R5 


(SAVE OVERFLON 


4165 


026242 


066602 


000030 






ADD 


30(SP1,R2 




4166 


026246 


005501 








ADC 


Rl 




4167 


026250 


•05500 








ADC 


R0 




4168 


•26252 


005505 








ADC 


R5 




4169 


026254 


066601 


000026 






ADD 


26CSP),R1 
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4170 


•26260 


•05500 






ADC 


R0 




4171 


•26262 


•05505 






ADC 


R5 




4172 


•26264 


•66600 


000024 




ADD 


24(SP),R0 




4173 


026270 


005505 






ADC 


R5 




4174 


026272 


006205 




34t: 


ASR 


B5 


RECOVER OVERFLOW IF ANY 


4175 


026274 


006000 






ROR 


R0 


SHIFT PRODUCT 


4176 


026276 


006001 






ROR 


Rl 




4177 


•26300 


•06002 






ROR 


R2 




4178 


•26302 


006003 






ROR 


R3 




4179 


•26304 


005366 


000002 




DEC 


2(SP) 


COUNT LOOP 


4180 


•26310 


•03344 






BGI 


328 


AGAIN 


4181 


•26)12 


000207 






RTS 


PC 


RETURN 


4182 


026314 


•05366 


000002 


31$: 


DEC 


2(SP) 


ONLY 15 BITS THIS PASS 


4183 


•26320 


006204 




308: 


ASR 


R4 


TEST NEXT MULTIPLIER BIT 


4184 


•26322 


103007 






UCC 


358 


JUMP IF ZERO 


4185 


026324 


066601 


000026 




ADD 


26(SP),R1 


USE ONLY HIGH ORDER MULTIPLICAND 


4186 


026330 


005500 






ADC 


R0 




4187 


•26)32 


005505 






ADC 


R5 




4188 


026334 


066600 


000024 




ADD 


24(SPI,R0 




4189 


026340 


•05505 






ADC 


B5 




4190 


r26342 


806205 




35tl 


ASf 


R5 


RECOVER ANY OVERFLOW 


4191 


026344 


006000 






ROR 


R0 




4192 


026346 


006001 






ROR 


Rl 




4193 


•26350 


006002 






ROR 


R2 




4194 


026352 


006003 






ROR 


R3 




4195 


•26354 


005 366 


000002 




DEC 


2(SP) 


COUNT LOOP 


4196 


•26360 


003357 






BGT 


308 




4197 


•26362 


000207 






RTS 


PC 


RETURN 


4198 










(•END 


OF MUL 
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4199 
4200 
42«t 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 



■•FLOATING POINT SOFTWARE DIVIDF ROUTINE 

I» 

(• THIS ROUTINE TAKES THE TOP TNO ELEMENTS ON THE STACK 

(• (LENGTH OF 2 OR 4 WORDS DEPENDING UPON WHETHER THE 

;• F/D MODE BIT7 IN SFPS IS OR 1 RESPECTIVELY) AND 

;• REPLACES THEN WITH THEIR QUOTIENT. 



(« EXAMPLE: 



>• 






I* 



(PUSH 

ADDRCOPERAND A) 
tPUSH 

ADDRtOPERAND Bl 
8DIV 
8P0PX 

ADDRCRESULT) 
RESULTstA/B 

NOTE ROUTINE IS CALLED THROUGH POLISH NODE OPERATORS. 

ALL OPERATIONS ARE CARRIED OUT IN DOUBLE tLENGIH=4) 
PRECISION MODE. SINGLE PRECISION OPERANDS ARE 
EXTENDED (VIA SCOHV SUBROUTINE) WITH LOW-ORDER 
ZEROS, AND LATER TRUNCATED BACK TO SINGLE PRECISION 
FROM THE DOUBLE PRECISION RESULT, 

STATUS BITS) 

THE N> 2, V, AND C BITS OF SFPS ARE SET AS FOLLONSI 
N : 1 IF RESULT NEGATIVE (IE, BIT15 = 1), 

ELSE N s 9 
2=1 IF RESULT ZERO (IE, EXPONENT = 000(8)), 

FLSE Z s 
V I 1 TF ARITHMETIC OVERFLOW OCCURRED, 

ELSE V = 
C s ILWAYS 

ERROR CONDITIONS: 

If AN ARITHMETIC OVERFLOW CONDITION OCCURS, THE RESULT 
WILL BE SET lO ZERO IF THE OVERFLOW ENABLE BIT OF SFPS 
(BIT09) IS ZERO. IF THIS BIT IS SET, THEN THE RESULT 
WILL BE CORRECT, EXCEPT THE EXPONENT WILL BE UNDERBIASED 
Bl 400(8). ALSO, THE SFPS ERROR BIT (BIT15) HILL BE SET, 
SFtC HILL BE SET TO 10(8), AND SFEA WILL BE LOADED WITH 
THE VALUE IN LOCATION "EXPFEA". IN EITHER INSTANCE, 
THE V-BIT (BIT01) WILL BE SET. 

IF AN ARITHMETIC UNDERFLOW CONDITION OCCURS, THE RESULT 
HILL BE SET TO ZERO IF THE UNDERFLOW ENABLE BIT OF SfPS 
(BIT10) IS ZERO. IF THIS BIT IS SET, THEN THE RESULT 
HILL BE CORRECT, EXCEPT THE EXPONENT WILL BE OVERBIASED 
BY 400(8). ALSO, THE SFPS ERROR BIT (BIT15) WILL BE SET, 
SFEC WILL BE SET TO 12(8), AND sFEA HILL BE LOADED WITH 
THE VALUE IN LOCATION "EXPFEA". 

IF DIVISION BY ZERO IS ATTEMPTED (EG, EXPONENT OF 
DENOMINATOR OPERAND IS ZERO), THE RESULT LEFT ON THE 
STACK WILL BE THE NUMERATOR, WITH THE CONDITION CODES SET 
ACCORDINGLY. THE SFPS ERROR BIT WILL BE SET, SFEC WILL BE 
SET TO 4(8), AND SFEA HILL BE SET TO THF VALUE CONTAINED 
IN THE LOCATION "EXPFEA". 



FPU ADD/SUB/HUL/DIV RANDOM EXER MACYll 27(1006) 04-MAY-77 18:18 PAGE 87 
DOFPDB.Pll 04-MAY-77 17:30 FLOATING POINT SOFTWARE ROUTINES 

!• 



4255 








4256 








4257 








4258 








4259 








4260 








4261 








4262 








4263 


026364 


005237 


002564 


4264 


026370 


042737 


000017 002400 


4265 


026376 


105737 


002400 


4266 


026402 


100402 




4267 


026404 


004737 


027622 


4268 


026410 


010046 




4269 


026412 


010146 




4270 


026414 


010246 




4271 


026416 


010346 




4272 


026420 


010446 




4273 


026422 


010546 




4274 


026424 


032766 


077600 000014 


4275 


026432 


001015 




4276 


026434 


005237 


002570 


4277 


026440 


052737 


100000 002400 


4278 


026446 


012737 


000004 002402 


4279 


026 45 4 


013737 


002376 002404 


4280 


026462 


000137 


027372 


4281 


026466 


085000 




4282 


026470 


005001 




4283 


026472 


005002 




4284 


026474 


005003 




4285 


026476 


0«5046 




4286 


026500 


006366 


000026 


4287 


026504 


006116 




4288 


026506 


005046 




4289 


026510 


156616 


000031 


4290 


026514 


001004 




4291 


^26516 


005237 


002566 


4292 


026522 


000137 


027346 


4293 


026526 


1S669it 


000030 


4294 


026532 


000300 




4295 


026534 


000261 




4296 


R265J6 


006000 




4297 


026546 


156600 


000033 


4298 


026544 


156601 


000032 


4299 


026550 


000301 




4300 


026552 


156601 


000035 


4301 


026556 


156602 


000034 


4302 


026562 


•00302 




4303 


026564 


156602 


000037 


4304 


026570 


156603 


000036 


4305 


026574 


000303 




4306 


026576 


006366 


000020 


4307 


026602 


005566 


000002 


4 308 


026606 


005004 




4309 


026610 


156604 


000021 


4310 


026614 


160416 





• ALL REGISTERS ARE PRESERVED UPON ENTRY, AND RESTORED UPON 

;» EXIT. THE ROUTINES ARE RE-ENTRANT, 

)• 

;• ADAPTED f ROM PDP-11 FORTRAN SOFTWARE 

|» BY DONALD NORTH, SEPTEMBER, 1975. 



INC 

BIC 

TSTB 

BMI 

JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIT 

BNE 

INC 

BIS 

MOV 

MOV 

JHP 

CLR 

CLR 

CLR 

CLR 

CLR 

ASL 

ROL 

CLR 

BISB 

BNE 
INC 

JMP 

EISB 

SWAB 

SEC 

ROR 

BISB 

BISB 

SWAB 

BISB 

BISB 

SWAB 

BISB 

BISB 

SWAB 

ASL 

ADC 

CLR 

BISB 

SUB 



DIVC0 

117, SFPS 

SFPS 

14S 

PCSCONV 

B0,-(SP) 

B1,-(SP) 

R2,-(SP) 

R3,-(SP) 

R4,-(SP) 

R5,-(SP) 

•077600, 14(SP) 

2S 

DIVC2 

(100000, SFPS 

•4, SFEC 

EXPFEA, SFEA 

9$ 

R0 

Rl 

R2 

R3 

-(SP) 

26(SP) 

(SP) 

-(SP) 

31(SP),(SP) 

68 

OIVCl 

IS 

30(SP),R0 



P0 

33(SP),R0 

32(SP),R1 

Rl 

35(SP),R1 

34(SP),R2 

R2 

37(SP),R2 

36(SP),R3 

R3 

20(SP) 

2(SP) 

R4 

21(SP),R4 

R4,(SP) 



!C1R: TOTAL NUMBER OF DIV 

;cleab status bits n z v c 

;test mode 

:d-hode 

•f-mode: convert 2 f opds to d 



;SAVE REGISTERS 



[DIVIDE BY ZERO ? 

[NO 

;CTB; DENOMa0 

[YES, SET ERROR BIT 

[SET SFEC 

;SET SFEA 

iDONE 



jSHlFT NUMERATOR 
;NUHERATOR SIGN 

■NUMERATOR EXP 
■NUMERATOR IS ZERO? 
;CTR: NUMER«0 
JYES, DONE 

•LEFT JUSTIFY NUMERATOR FRACTION 
■INSERT NORMAL BIT 



■SHIFT DENOMINATOR 
■RESULT SIGN 



JDIVISOB EXPONENT 
■SUBTRACT EXPONENTS 
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SEO 0069 



4311 


026616 


900366 


000020 


4312 


026622 


000261 




4313 


026624 


006066 


000030 


4314 


C26630 


116666 


000023 000020 


4315 


•26636 


116666 


000022 000023 


4316 


026644 


116666 


000025 00002? 


4317 


036652 


116666 


000024 00002^ 


4318 


026660 


116666 


000027 00002'i 


4319 


026666 


116666 


000026 000027 


4320 


026674 


105066 


000026 


4331 


036700 


005066 


000030 


4322 


026704 


•05066 


000032 


4323 


026710 


005066 


000034 


4324 


026714 


020066 


000030 


4325 


026720 


101020 




4326 


036722 


103424 




43J7 


026724 


020166 


000022 


4328 


026730 


101014 




4329 


026732 


103420 




4330 


026734 


020266 


000024 


4331 


036740 


101010 




4332 


026742 


103414 




4333 


026744 


020366 


000026 


4334 


0267S0 


101004 




4335 


026752 


001010 




4336 


0267S4 


005316 




4337 


026756 


005004 




4338 


026760 


•00443 




4339 








4340 


026762 


006000 




4341 


036764 


006001 




4342 


026766 


006002 




4343 


036770 


006003 




4344 


026772 


005216 




4345 


026774 


012705 


000011 


4346 


•27000 


004737 


027464 


4347 


027004 


110466 


000030 


4348 


037010 


005705 




4349 


•27012 


001025 




4350 


027014 


012705 


000020 


4351 


037030 


004737 


027464 


4352 


027024 


010466 


000032 


4353 


037030 


005705 




4354 


027032 


001015 




4355 


027034 


012705 


000020 


4356 


037040 


004737 


027464 


4357 


•37044 


010466 


000034 


4358 


037050 


005705 




4359 


•37052 


001005 




4360 


037054 


012705 


000020 


4361 


027060 


004737 


037464 


4362 


027064 


000401 




4363 


027066 


005004 




4 364 


027070 


012605 




4365 


027073 


062705 


000300 


4366 


027076 


003022 





1081 
5S! 



SWAB 

SEC 

ROP 

MOVB 

MOVB 

HOVB 

HOVB 

MO KB 

MOVB 

CLRB 

CLR 

CLh 

CLP 

C"P 

BHI 

BLO 

CXP 

BHI 

BLO 

CMP 

BHI 

BLO 

CMP 

BHI 

BNE 

INC 

CLB 

BR 

ROB 

ROR 

ROR 

ROP 

INC 

MOV 

JSR 

MOVB 

TST 

BNE 

MOV 

JSR 

hOV 

TST 

BNE 

MOV 

JSR 

MOV 

TST 

BNE 

MOV 

JSP 

BR 

CLR 

MOV 

ADD 

BGT 



20(SP) 

20(SP) 

33(SP),20(SP) 

22CSP),33(SP) 

35(SP).22(SP) 

24(SP)r35(SP) 

37(SP),34(SP) 

26(SP),27(SP) 

26(SP) 

30(SP1 

32(SP) 

34(SP) 

R0,20(SP) 

38 

4$ 

R1,22(SP1 

3< 

4S 

B2r24(SP) 

31 

49 

R3,36(SP) 

3S 

4$ 

(SP) 

R4 

58 

R0 

Rl 

R2 

R3 

(SP) 

•9.,R5 

PC, 308 

R4,3«(SP) 

R5 

108 

<16.,P5 

PC,30S 

R4,32(SP) 

R5 

10$ 

•16.,R5 

PC, 308 

R4,34rSP) 

B5 

108 

116, ,R5 

PC, 308 

58 

R4 

(SP)»,R5 

1200, PS 



jLEFI JUSTIFY DENOM 
lINSERT NORMAL BII 



jCLEAR QUOTIENT 



;COMPARE HIGH NUM + DENOM 

;JUMP IF DENOM LON 

jJUMP IF DENOM HI 

;COMPA[lE LOU ORDER PARTS 
! 



; HALVE DENOM (C«0) 
;T0 INSURE N<D 



COMPENSATE EXP 

FIRST NINE QUOTIENT BITS 

SAVE ALL HIGH ORDER Q FRACTION 

DONE? 

YES - REST OF NUMBER IS 

16 MORE BITS 



)CLEAR LOHEST ORDER QUOTIENT 

;PUSH UP EXPONENT 

;INSERT BIAS 

•BR IF NO UNDERFLOW 
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4367 


•27100 


0052 37 


003576 




1«C 


DIVC5 ; 


4368 


027104 


•32737 


003000 


002400 


BIT 


1003000, SFPS ; 


4369 


037112 


001516 






BED 


158 ; 


4370 


027114 


005237 


002600 




INC 


DIVC6 ,- 


4371 


027120 


052737 


100000 


002400 


BIS 


1100000. SFPS ( 


4372 


•37136 


•13737 


000012 


002403 


MOV 


I13,$FEC ; 


4373 


027134 


•13737 


003376 


003404 


MOV 


EXPFEA,SFEA } 


4374 


037142 


300427 






BR 


lis ! 


4375 


027144 


022705 


000377 


7s: 


CMP 


1377, P5 I 


4376 


•27150 


•02024 






BGE 


lis : 


4377 


027152 


052737 


000002 


003400 


BIS 


102, SFPS ; 


4378 


•27160 


•05237 


002573 




INC 


DIVC3 ! 


4379 


•27164 


032737 


001000 


003400 


BIT 


«0010»0,8FPS J 


4380 


•27172 


001466 






BEO 


15S ; 


4381 


927174 


005337 


003574 




INC 


DIVC4 1 


4382 


•27200 


052737 


100000 


002400 


BIS 


•100000, SFPS ! 


4383 


027306 


•13737 


000010 


003402 


HOV 


•10,8FEC ; 


4384 


037214 


•13737 


002376 


002404 


MOV 


tXPFE«,SFEA ; 


4385 


B27222 


110566 


000037 


US: 


MOVB 


RS,27(SP) ; 


4386 


•27226 


006036 






ROR 


(SP)* : 


4387 


027330 


•06066 


000034 




ROP 


24(SP) ) 


4388 


037234 


006066 


000036 




ROR 


26(SP) ; 


438" 


027240 


006066 


000030 




ROR 


30(5P) ; 


4390 


•27244 


006004 






ROR 


R4 : 


4391 


037346 


005504 






ADC 


R4 ; 


4392 


•27250 


005566 


000030 




ADC 


30(SP) ; 


4393 


027254 


005566 


000026 




ADC 


26(SP) I 


4394 


037360 


005566 


000024 




ADC 


24(sP) : 


4395 


037264 


010466 


000032 




MOV 


P4,32(SP) ; 


4396 


027370 


103401 






BCS 


16S I 


4397 


•27272 


193037 






BVC 


9S : 


4398 


027274 


052737 


000002 


002400 168: 


BIS 


102, SFPS ; 


4399 


027302 


•05237 


002572 




INC 


DIVC3 ; 


4400 


027306 


032737 


001000 


00240H 


BIT 


1001000, SFPS ; 


4401 


•27314 


•01416 






BEQ 


19S J 


4402 


027316 


•85237 


002574 




INC 


DIVC4 ; 


4403 


•27322 


052737 


100000 


002400 


BIS 


#100000, SFPS ; 


4404 


027330 


B12737 


000010 


003402 


MOV 


•10,SFEC ; 


4405 


037336 


013737 


002376 


002404 


MOV 


EXPFEA,SFEA J 


4406 


•27344 


•00412 






BR 


9s : 


4407 


037346 


005726 




is: 


TST 


(SP1+ ; 


4408 


Ii2735» 


•05726 




15$: 


TST 


(SP)+ , 


4409 


027352 


005066 


000024 


19$: 


CLR 


24(SP) 


4410 


•J73S6 


005066 


000026 




CLP 


26tSP) 


4411 


027362 


005066 


000030 




CLP 


30(SP) 


4412 


037366 


005066 


000033 




CLR 


32(SP) 


4413 


037372 


•33766 


077600 


000024 96: 


BIT 


S077600,24(SP) 


4414 


•27400 


•01003 






BNE 


178 


4415 


•27402 


053737 


000004 


002400 


BIS 


#04, SFPS 


4416 


•37410 


•05766 


000034 


17S: 


TST 


24(SP) 


4417 


•37414 


10000 3 






BPL 


18S 


4418 


037416 


•52737 


000010 


002400 


BIS 


#10, SFPS 


4419 


•37424 


•13605 




ISS: 


HOV 


(5P)*,R5 


4430 


•37 436 


•12604 






MOV 


(SP)+,B4 


4431 


•37430 


012603 






MOV 


(SP)+,R3 


4422 


•27432 


•136B3 






MOV 


(SP)+,R2 



CTR: UNDERFLOW 

UNDERFLOW - IS II ENABLED 7 

NO, MAKE ZERO RESULT 

CTR: UNDEKFLOW, ENABLED 

SET ERROR BIT 

SET SFEC 

SET 8FEA 

CONTINUE 

CHECK FOR OVERFLOW 

BK IF NO OVERFLOW 

SET V BIT ON OVERFLOW 

CI»: OVERFLOW 

OVERFLOW ENABLED 7 

NO, ZERO RESULT 

CTR; OVERFLOW, ENABLED 

SET ERROR BIT 

SET sFEC 

SET SFEA 

PUT EXPIN RESULT 

INSERT SIGN 



INSERT LOW ORDER FRACTION 
jOVERFLOw ON POUND ? 

YES - SET V BII 
;CTP: OVERFLOW 

OVERFLOW ENABLED ? 

NO, ZERO RESULT 

CTR: OVERFLOW, ENABLED 

SET ERROR BIT 

SET SFEC 

SET SFEA 

CONTINUE 

FLUSH EXP 

FLUSH SIGN 
jCLEAR RESULT 



fSET Z BIT IF EXPONENT ZERO 

•SET N BIT IF RESULT NEGATIVE 
! 



RESTORE REGISTERS 
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4423 

4434 

447S 

4426 

4427 

4428 

4429 

44)0 

4431 

4432 

44)3 

4434 

4435 

4436 

4437 

4438 

4439 

444B 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

446<l 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

447« 

4471 



»27434 
027436 
(27440 
1*27444 
027450 
027452 
027456 
027 462 

027464 
027 466 
027470 
H27 47 2 
027474 
027476 
02750U 
027504 
027506 
B2751tf 
027514 
027516 
027520 
027524 
027526 
027530 
027534 
027536 
92754.) 
027544 
027546 
027550 
027552 
027556 
027560 
027562 
027566 
02757a 
027574 
027576 
02760^ 
027602 
«276a4 
027606 
027610 
027612 
027614 
027616 
027620 



012601 
012600 
062706 
105737 
100404 
012666 
012666 
000134 

006304 
006 303 
006102 
006101 
006100 
10342^ 
026601? 
101034 
10)414 
026601 
101^30 
103410 
026602 
101024 
103404 
026603 
101020 
001422 
166603 
005602 
005601 
005600 
166602 
045601 
00560<l 
166601 
005600 
166600 
005204 
005 305 
003331 
000207 
005204 
000401 
006304 
005305 
B03375 
005205 
000207 



000010 
002400 



000002 
000002 



000024 



35S: 

}4(: 



HOV 

HOV 

ADD 

TSTB 

BMI 

HOV 

HOV 

JHF 

«SL 

ASL 

ROL 

ROI. 

ROl. 

BCS 

CMP 

BHI 

BLO 

CMP 

BHI 

BLO 

CHP 

BHI 

BLO 

CMP 

BHI 

BEO 

SUB 

SHC 

SBC 

SBC 

SUB 

SBC 

SBC 

SUB 

SBC 

SUB 

INC 

DEC 

BGT 

RTS 

INC 

BR 

ASL 

DEC 

BGT 

INC 

RTS 

:>t.ND 



(SP)».R1 
(SP)»,R0 

ie.,sp 

• FPS 

13$ 

(SP)t,2<5P) 

(5P)t.2tSP) 

B(P4)* 

R4 
R3 
R2 
Rl 
R0 
31« 

22(SP),R0 
328 
318 

24(SP1,R1 
328 
318 

2b(SPUR2 
328 
318 

30(SP),R3 
328 
338 

30(SP),R3 
R2 
PI 
P0 

26(SP),I<2 
Rl 
R0 

24(SP),R1 
P0 

22(SP)»R0 
B4 
B5 
308 
PC 
R4 
348 
P4 
B5 
358 
R5 
PC 
OF DIV 



(FLUSH FIRST ARG 

;F OR D NODE 

;D MODE 

jF MODE - CONVERT 

•RETURN 

SHIFT QUOTIENT 



GUARANTEED TO GO 

COMPARE HIGH DIVISOR AND DIVIDEND 

DIVISOR BIGGER 

CHECK LOB ORDERS 



;HUMER«DENOM 
;NsN.n 



INSERT QUOTIENT BIT 
COUNT LOOP 



RETURN 

INSERT LAST 1 BIT IN QUOTIENT 



FINISH OUT QUOTIENT WITH ZEROS 



FLAG NO MORE NUMEB 
RtTURN 
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4472 
4473 










4474 










4475 










4476 










4477 










4478 










4479 










4480 










44111 










4482 










4483 


027622 


005046 






4484 


027624 


016646 


000006 




4485 


027630 


016646 


000006 




4486 


027634 


016646 


000006 




4487 


»27640 


016666 


000020 


000014 


4498 


027646 


016666 


000016 


000012 


4489 


027654 


005066 


000020 




4490 


027660 


005066 


000016 




4491 


027664 


005066 


000010 




4492 


027670 


000207 







•CONVERT TOP 2 OPtPANDS ON STACK FROM F MODE 

« TO D MODE 

• 

• THIS ROUTINE TAKES THE TOP TKO 2-«0RD (SINGLE 

• PRECISION) FLOATING POINT NUMBERS ON THE 
» STACK AND CONVERTS THFM BOTH TO 4-tiORD 

« (DOUBLE PRECISION) FORMAT BY APPENDING 

• TWO UOROS OF ZEROS AS THE LOW ORDER BIT 
» EXTENSION. 



JCLEAP WORD 3 OF A 
jHOVF. WORD 2 OF A 
(MOVE WORD 1 OF A 
(MOVE RETURN ADDR TO TOP 
(MOVE WORD 2 OF B 
(MOVE WORD 1 OF B 
(CLEAR WORD 4 OF 8 
(CLEAR WORD 3 OF B 
(CLEAR WORD 4 OF A 



CLB 


-(SF) 




HOV 


6(SP),-(SP) 


MOV 


6(SP),-(5P) 


MOV 


6(SP),-(SP) 


MOV 


2B(SP) 


14(SP) 


HOV 


16(SP) 


12(SP) 


CLR 


20(SP) 




CLR 


I6(SP) 




CLR 


)0(SP) 




RTS 


PC 





»77ti72 
f27672 
•27672 

9277fiO 



1127782 Bl)8416 



FPU »OD/SUB/MUL/ 
DorpDB.Pll 84 



4493 
4494 
4495 
4496 
4497 
4498 
4499 

4sea 

4581 

4Se2 

45m 

4584 

4505 

45»6 

4587 

4589 

4589 

4518 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4528 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4538 

45)1 

4532 

4533 

4534 

4535 

45 36 

45)7 

4538 

4539 

4548 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 
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.SBTTl SCOPE HANDLER ROUTINE 



832777 
881114 



027784 
027718 
827716 
»27722 
127726 
827738 
8277)2 
821736 
827748 
827748 
827746 
827758 
827756 
(27768 
827764 
827766 
827774 
827776 
8)8884 
8)8886 
838814 
838816 
8)8822 
838826 

83^836 
838848 
838844 
838846 
838852 
838868 
838862 
838878 
838876 
838182 
838110 



813746 
812737 
8857)7 
812637 
888463 
822626 
8126)7 
88842 3 

B32777 

881484 

823737 

881465 

885737 

881421 

82)7)7 

181815 

8)2777 

881484 

8137)7 

»38446 

885837 

885837 

888*15 

832777 

881811 

8857)7 

881486 

885237 

62)7)7 

882824 

8127)7 

813737 

8852)7 

81)737 

811637 



;THn"ou;:E COnUlS the LOOPING Or SUBTESTS IT "I^^^J^^^fJ,.,, 

.AND LOAD THE TEST NUMBER( STSTNH) INTO THE DISPLAY BEG. IDISPLAY<15.8> 

•"he SNITCH OPTIONS PROVIDED BY THIS ROUTINE ABEI 

i»Sm4=l LOOP ON TEST 

'.SNllsl INHIBIT ITERATIONS 

I«S»e9=l '■OOP ON ERROR 

j.5N88=1 LOOP ON TEST IN 

jl'^"''' SCOPE ,,SCOPE=IOI 



048080 151244 



3277)8 
177868 
888884 



008488 
881158 
801184 
881128 
881888 
881112 

801184 

801166 



"SLPTST" 



S SCOPE I 
64S: 

ISI P,1T IB1T14.BSWB 

BnE SOVER 

jUtHSTABT OF CODE FOR THE XOR 

(Xtstb: bp 6S 



151176 

881102 

881 184 
151148 
881110 



881186 
081166 

000001 
8)8146 
881182 
881182 
881110 



151106 381 



801186 
881166 



801206 



HOV 
NOV 
TST 
HOV 
BR 
5t! CXP 
HOV 
BP 
6«:ill«l>END 
BIT 
BEQ 
C"P 
BEQ 
2SI TST 
BEO 
CMP 
BHI 
BIT 
BEO 
MOV 
BR 
CLH 
CLP 
BP 
BIT 
BNE 
TST 
BEO 
INC 
CMP 
bCE 
HOV 
MOV 
: INC 
HOV 
MOV 



?IERPVEC,-(SP) 

I5S>I>>ERRVEC 

SI177860 

(Spi+,»»erhvec 

SSVLAD 
(SP)tf(SPlt 
(SP)t,»IEBpVEC 
7S 
OF CODE FOR THE XO 
|BIT08.''S«R 
28 
SLPTST, SISTNH 

(OVER 

SERFLG 

)S 

SEBMAX, SERFLG 

3S 

«BITa9.»S"B 

4S 

SLPEPR.SLPADR 

SOVER 

SERFLG 

6TIMES 

IS 

IBITK ,eSNB 

IS 

SPASS 

It 

SICNT 

STIHES.SICNT 

SOVER 

II.SICNT 

SMXCHT.STIMES 

STSTHM 

STSTN«,STESTN 

(SPJ.SLPAOR 



[ILOOP ON PRESENT TEST7 

;!YES IF SU14>1 

TESTERimi _ „u.i,^r 

-•IF PUNNING ON THE "XOR- TESTER CHANGE 

'StHIS INSTRUCTION TO A "NOP" CN0P»248) 

',;S»»E THE CONTENTS OF THE EBBOR VECTOR 

J'jSET FOR TIMEOUT 

•;TIME OUT ON XOR? 

,;RESTDRE THE ERROR VECTOR 

•jGO TO THE NEXT TEST 

: •CLEAR THE STACK AFTER A TIME OUT 

si restore the error vector 
•jloop on the present test 
r'tester«»ii« 
; [loop on spec, test? 

|;bR IF NO 

fjON THE BIGHT TEST? 

j;BP IF YES 

jjHAS AN EBBOB OCCUBBED? 

.-JEB IF NO 

;;MAX. EBROPS FOR THIS TEST OCCURRED? 

S)BR IF NO 

;;LOOP ON ERROR? 

-!BR IF NO 

•;SET LOOP ADDRESS TO LAST SCOPE 

[.ZERO THE ERROR (LAG 

■•CLEAR THE NUMBER OF ITERATIONS TO HAKE 

|;FSCAPE TO THE NEXT TEST 

;:INHIBIT ITERATIONS? 

;|BB IF YES 

-J IF FIRST PASS OF PBOCRAH 

., INHIBIT ITERATIONS 

•jINCREMENT ITERATION COUNT 

•jCHECK THE NUMBER OF ITERATIONS HADE 

■!bR IF MORE ITERATION REQUIRED 

'[•REINITIALIZE THE ITERATION COUNTER 

■■if! NUMBER OF ITERATIONS TO DO 

' .COUNT TEST NUMBERS 

';;SET TEST HUMBEB IN APT MAILBOX 

SisAVE SCOPE LOOP ADDRESS 



FPU .DD/SUB/MUL/DIV_ RANDOM EXEB MACYU "''»^'' „"-"":",'" "« "" " 



SEQ 8894 



OOFPDB. 


PI1 84-MAY-77 


171)8 




4549 


838114 


8115)7 


881112 




4558 


838128 


8858)7 


881170 




4551 


838124 


812737 


880801 


081128 


4552 


838132 


813777 


881182 


151806 


4553 


838148 


01371b 


001118 




4554 


838144 


888882 






4555 


838146 


080488 







SCOPE HANDLER ROUTINE 



6MXCNT 



MOV 
CLR 
MOV 
HOV 
HOV 
RTI 
408 



tIPl.sLPEPR ;:SAVt ERROR LOOP ADDRESS 

SESCAPE CLEAR THE ESCAPE FROM EPPOB ADDBE6S 

lITsERHAX I [ONLY ALLOW ONE(l) ERROR ON NEXT TEST 

STSTNM.aOlSPLAY [[DISPLAY TEST NUMBEB 

6LPADB,(SP) [[FUDGE RETURN ADDRESS 

[[FIXES PS 

[[MAX. NUMBEB OF ITEBAIIONS 
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4SS6 










4557 










4959 










4559 










4S6U 










4561 










4562 










456) 










4564 










4565 










4566 










4567 










4568 










4569 










457a 


030150 








4571 


83015^1 


010037 


002602 




4572 


030154 


010137 


002604 




4573 


03K160 


01^237 


002606 




4574 


030164 


010337 


002619 




4575 


030170 


010437 


802612 




4576 


030174 


(•19537 


002614 




4577 


039200 


010637 


092616 




4579 


030204 


062737 


000004 


902616 


4579 


1S30212 


011637 


802620 




4590 


030216 


005237 


001194 




4581 


030222 


001775 






4582 


830224 


013777 


001102 


150714 


459 3 


030232 


032777 


002000 


158704 


4584 


030240 


001402 






4585 


030242 


III4401 


001172 




4586 


030246 


005237 


001114 




4587 


030252 


011637 


001122 




4588 


030256 


1627)7 


000902 


001122 


4589 


030264 


117737 


150632 


091116 


4590 


830272 


032777 


020000 


150644 


4591 


030300 


001004 






4592 


030302 


004737 


030412 




4593 


030306 


104491 


001177 




4594 


030312 








4595 


030312 


122737 


000001 


001222 


4596 


030320 


901007 






4597 


030322 


1137)7 


801116 


030334 


4598 


030330 


004737 


031152 




4599 


030334 


000 






4600 


030335 


099 






4601 


030336 


000777 






4602 


030340 


005777 


150600 




4603 


030344 


100901 






4604 


030346 


000000 






4605 


030350 


032777 


001000 


158566 


4606 


030356 


0>)1402 






4607 


730360 


013716 


001112 




4608 


030364 


005737 


891170 




4609 


030370 


001492 






4610 


030372 


813716 


091179 




4611 


030376 









.SBTTL ERROR HANDLER ROUTINE 



:»THIS ROUTINE KlLb INCREMENT THt ERROR FliA(5 AND THE ERROR COUNT* 

1«SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

;»AND HO TO STYPERR ON ERROR 

;»IHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ABE! 

:*SW15E| HALT ON ERROR 

;«SWl3al INHIBIT ERROR TYPEOUTS 

;<SW10=1 BELL ON ERROR 

;«SN09b| LOOP ON ERROR 

(•CALL 

;# ERROR N ;iEPROPxE»T AND NsERBOB HEM NUMBER 



SERROR! 



228 ! 
2S: 



MOV 

MOV 

MOV 

HOV 

MOV 

MOV 

MOV 

ADD 

MOV 

INC 

BEO 

MOV 

BIT 

BEO 

TYPE 

INC 

MOV 

SUB 

MOVB 

BIT 

BNE 

JSR 

TYPE 

CMPB 

BHt 

MOVB 

JSR 

.BYTE 

.BYTE 

BR 

TST 

BPL 

HALT 

PIT 

BEO 

MOV 

TST 

BK<J 

MOV 



P0>ERFG9 
Rl.EPKGl 
R2,EREG2 
R3,tREC3 
R4,EREG4 
R5,ERFG5 
R6,EREG6 

i4,erf:g« 

(SP),EREG7 

SERFLG 

7S 

STSTNM,»DISPLAY 

iBIT10,»SUR 

IS 

,$BELL 

SEPTTL 

(SP),«ERRPC 

•2,SERRPC 

»SERRPC.tITEMB 

t6IT13,0SWR 

20S 

PCSTYPERR 

,SCRLF 

lAPTENVrSENV 
2S 

SITEMB.21S 
PC,$ATY4 

8 



DISPLAY R9 

Rl 

R2 

R3 

R4 

R5 
GET Hfa(SP) BEFORE TRAP 

PC -> ERROR CALL INSIP 
;SEI THE ERROR FLAG 
;DON'T LEI THE FLAG G" TCf ZERO 
[DISPLAY TEST NUMBER 
iBELL ON ERROR? 
;N0 - SKIP 
;RING BELL 

SCOUNT THE NUMBER OF ERRORS 
;GET ADDRESS OF ERROR INSTRUCTION 

;STRIP AND SAVE THE ERROR ITEM CODE 

SSKIP lYPEOUT IF SET 

[SKIP TYPEOUTS 

[GO TO USER ERROR ROUTINE 



[[RUNNING IN APT MODE 
[[NO»SKIP APT ERROR REPORT 
[I5ET ITEM NUMBER AS eJsROR NUMBER 
; [REPORT FATAL ERROR TO APT 



22S 

aswR 

3S 

|BIT09,I>SNR 

4S 

SLPERP,(5P) 

SESCAPE 

5S 

SESCAPE, (SP) 



j:APT ERROR LOOP 

[[HALT ON ERROR 

[ [SKIP IF CONTINUE 

[[HALT ON ERRORl 

[[LOOP ON ERROR SNITCH SET? 

[[BR IF NO 

[[FUDGE RETURN FOR LOOPING 

[[CHECK FOR AN ESCAPE ADDRESS 

[[BR IF NONE 

[[FUDGE RETURN ADDRESS FOR ESCAPE 
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4612 »0376 022737 

4613 030404 001001 

4614 P30406 000090 

4615 0)0410 

4616 039419 000002 



022106 080042 



CMP 

BNE 
HALT 



«$ENDAD.8>42 



([ACT-11 AUTO-ACCEPT? 
[[BRANCH IF NO 
[[YES 
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«6I7 








4618 








4619 








4620 








4621 








4622 








4623 








4624 








4625 








4626 








4627 








462S 








4629 








4630 








4631 








4632 








4633 








4634 








4635 








4636 








4637 








4638 








4639 








464tl 








4641 


030412 






4642 


030412 


li<440t 




4643 


030414 


001177 




4644 


^30416 


010046 




4645 


e3e42«' 


010146 




4646 


330422 


005000 




4647 


030424 


153700 


001116 


4648 


e3043it 


001004 




4649 








465l> 


030432 


013746 


001122 


46SI 


»30436 


104402 




4652 


030440 


000454 




4653 


030442 


005300 




4654 


030444 


006300 




4655 


030446 


006100 




4656 


030450 


010001 




4657 


030452 


006300 




4658 


030454 


006300 




4659 


030456 


060100 




4660 


030460 


062700 


001232 


4661 


030464 


012l'.37 


030474 


4662 


U30470 


001404 




4663 


030472 


104401 




4664 


030474 


000000 




4665 


030476 


104401 


001177 


4666 


030502 


104401 


030632 


4667 


030506 


012037 


030S16 


4668 


030512 


001402 




4669 


•30514 


104401 




4670 


030516 


000000 




4671 


030520 


194401 


001177 


4672 


030524 


017746 


000074 



.SBTTL ERROR MESSAGE TYPEOUT ROUTINE (MODIFIED 5YSHAC) 

l»THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 

;«ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE", 

t«(SEBRTB) THE LRROR MESSAGE, DATA HEADER, AND DATA VALUES TO PRINT, 

:« FORMAT! HI I PTB TO ASCII ERROR MESSAGE, IF NONE 

-« N2| PTR TO ASCIZ DATA HEADER, IF NONE 

,. U3| PTR TO DATA VALUES ADDR LIST, IF NONE 

■ • H4-II9I PTR TO OPERAND VALUES ADDR LIST, IF HONE 

)• U10I ALWAYS 

l» 

)• DATA VALUES LIST FORMAT: 

.. A VARIABLE LENGTH LIST OF POINTERS TO 

,• WORDS TO PRINT AS 6 OCTAL DIGITS, LIST 

• II MUST BE TERMINATED BY A ZERO WORD. 

>• 

;• OPERAND VALUES LIST FORMaTi 

;• FIRST WORD IS ADDRESS OF ASCIZ MESSAGE TO 

,• PRINT AT START OF LINE) REST OF LIST IS 

■• IN SAME fORMAT AS DATA VALUES LAST 



tTYPERR 


: 
Type 




hotwrm: 


.WORD 


4CRLF 




MOV 


Re,-(SP) 




MOV 


R1,-(SP) 




CLR 


R0 




bISB 


0iSITCMB,R0 




BNE 


It 




HOV 


SERRPC,-(SP) 




TYPOC 






BR 


7« 


It: 


DEC 


B0 




ASL 


R0 




ASL 


K0 




MOV 


R0,R1 




ASL 


R0 




ASL 


R» 




ADD 


R1,R0 




ADD 


l«ERRT8,R0 




MOV 


(R01t,2S 




PEO 


3t 




TYPE 




2>i 


.WORD 







TYPE 


,SCRLF 


3$! 


TYPE 


,11S 




MOV 


(R0)*,4S 




BED 


5> 




TYPE 




4SI 


.WORD 





SSI 


TYPE 


,«CRLF 




MOV 


»8«,-(SP) 



;START WITH MESSAGE PREFIX, 

jPTR TO "HOT" OR "WARM" 

,-SAVE »0 

;SAVE PI 

;PICKUP ITEM INDEX 

jlF ITEM NUMBER FROM ERROR 0, 

; JUST TYPE PC OF ERROR 

[GET ERROR PC FOR lYPEOUI 

;TYPE OCTAL, ALL DIGITS 

jEXIT 

{ADJUST ERROR • FOR TABLE INDEX 

; OF 20. BYTES/ENTRY 



[FORM TABLE PTR 

(PICKUP "ERROR MESSAGE" PTR 

;SKIP TYPEOUT IF NULL 

jTYPE "ERROR MESSAGE" 

; "ERROR MESSAGE" PT" HERE 

iCR t LF 

;"TEST I ERR PC" HEADER 

;P1CKUP "DATA HEADER" PTR 

;SKIP TYPEOUT IF NULL 

•TYPE "DATA HEADER" 

j"DATA HEADER" PTR HERE 

>CR i, LF 

;(STE5TN) 



HOT OR WARM 
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4673 


030530 


104402 






TYPOC 




;OCTAL W/ LEADING ZEROS 


4674 


030532 


104401 


030630 




TYPE 


,10S 


;<HT> 


4675 


030536 


017746 


000064 




HOV 


S9t,-(SP) 


[(SERRPC) 


4676 


030542 


104402 






TYPOC 




•OCTAL w/ LEADING ZEROS 


4677 


030544 


104401 


030630 




TYPE 


,I0S 


;<hT> 


4678 


030550 


012001 






HOV 


(R0)»,R1 


jPICKUP "DATA TABLE" PTB 


4679 


030552 


001407 






BEO 


7t 


JEXIT IF NULL 


4680 


030554 


013146 




6<E 


HOV 


»(R1)*,-(SP) 


;SAVE ... FOR TYPEOUT 


4681 


030556 


104402 






TYPOC 




;TYPE OCTAL, ALL DIGITS 


4692 


030560 


00571! 




14S: 


TST 


(Rl) 


{ANOTHER NUMBER ? 


4683 


030562 


001403 






BEO 


7S 


{NO - EXIT 


4684 


030564 


104401 


030630 




TYPE 


,l0t 


;TAB BETWEEN ELEMENTS 


4685 


030570 


000771 






BR 


6« 


)LOOP ON DATA TABLE VECTOR 


4686 


030572 


104401 


001177 


7s: 


TYPE 


,tCPLF 


(END THE LINE 


4687 


030576 


012001 






HOV 


(R0)»,R1 


jGET OPERAND LIST PTR 


4689 


030600 


001406 






BEO 


151 


(ALL DONE 


4689 


030602 


012137 


030612 




MOV 


(Rl)t,121 


(OPERAND TITLE 


4690 


030606 


001402 






BEO 


13S 


(SKIP IF ZERO 


4691 


030610 


104401 






TYPE 




(TYPE IT 


4692 


(•30612 


000000 




12<: 


.WORD 


e 


(FROM HEBE 


4693 


030614 


000761 




13«t 


BR 


141 


(GO FINISH DATA LIST 


4694 


030616 


012601 




15»! 


HOV 


(5P)»,R1 


(PFSTOBE Bl 


4695 


030620 


012600 






MOV 


(SP)»,R0 


(BESTORE R0 


4696 


030622 


000207 






RTS 


PC 


(RETURN 


4697 


030624 


001206 




8$: 


.WORD 


tTESIN 




4698 


930626 


001122 




9<: 


.WORD 


tERRPC 


( 


4699 


C306 30 


000011 




10>! 


.ASCIZ 


<11> 


[<HT> 


4 700 


•30632 


042524 


052123 


021440 lit: 


.ASCIZ 


"TEST » ERR PC 


" 


4701 


•30640 


042411 


05U22 


050040 








4702 


030646 


004503 


000 










4703 




030652 






.EVEN 
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4704 
47l«5 
471)6 
47H7 
47<<B 
4709 
47ta 
47)1 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
47 36 
4737 
4738 
4739 
474« 
4741 
4742 
4743 
4741 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 



.5BTTL TYPE ROUTINE 



e3t)652 
030656 
030660 
030662 
030664 
030666 
03M672 

03a7a« 

030702 
03(>7111 
030712 
030716 
030722 
030724 
0J0732 
030734 
»3«736 
030740 
030742 
•30744 
B3K750 
030752 
030756 
030760 
030764 
030766 
030770 
030772 
030774 
03100<< 
031002 
031006 
031012 
■31014 

031020 
031024 
031026 
031032 



105737 001165 
100002 



000430 
010046 
017600 
122737 
001011 
132737 
001405 
010037 
004737 031142 



000002 

000001 001222 

000100 001223 



132737 
001003 
112046 
»01005 
005726 
012600 
062716 
000002 
172716 
001430 
122716 
001006 
BB5726 
104401 
001177 
105037 
000755 
004737 
123726 
001350 
013746 



000040 001223 



031064 
001164 



001162 



•ROUTINE TO TYPE JSCTZ MESSAGE, MESSAGE MUST TERMINATE WITH A BYTE. 

•THE ROUTINE klLL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

•NOTEll SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

•N0TE2t SFILLS CONTAINS THE NUMBER OK FILLER CHARACTERS PEOUIPED. 

•N0TE3! SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

• 

•CALLI 
(•1) USING A TRAP INSTRUCTION 
!• TYPE ,HESADR 
!»0R 

;• TYPE 
;• HESADR 



(• 



jjHESADR IS FIRST AODRESS OF AN ASCIZ STRING 



61$l 
6281 



60S: 

3t: 



105366 000001 
002770 

004717 031064 

105117 031130 



TSTB 

BPl 

HALT 

BR 

MOV 

MOV 

CHPB 

BNE 

BITB 

BFO 

HOV 

JSP 

.WORD 

BITB 

BNE 

MOVB 

BNE 

TST 

MOV 

ADP 

RTl 

CMPB 

BEO 

CMPB 

BNE 

TST 

TYPE 

SCRLF 

CLBB 

BR 

JSP 

CMPB 

BNE 

MOV 

DECB 
RLT 
JSH 
DECB 



18 

3S 

P«.-(SP) 

82(SP)iP0 

•APTENV.SENV 

62$ 

IAPTSP00L,8ENVM 

628 

PR. 618 

PC,SATY3 



«APTCSUP,SE»VM 

60S 

(R0)»,-(SP) 

45 

tSP)* 

(SP)t,R0 

>2,(SP1 

•HT, CSP) 

8S 

ICRLF.CSP) 

56 

(SP)» 



Ills THERE A rERMINAL? 

!!BR IF YES 

I [HALT HERE IF NO TERMINAL 

; [LEAVE 

ISSAVE R0 

[jGET ADDRESS OF ASCIZ STRING 

ijRUNNING IN APT MODE 

fjNO.GO CHECK FOR APT CONSOLE 

a&POOL MESSAGE TO APT 

^tNO.GO CHECK FOR CONSOLE 

[[SETUP MESSAGE ADDRESS FOR APT 

[[SPOOL MESSAGE TO APT 

[[MESSAGE ADDRESS 

[[API CONSOLE SUPPRESSED 

llSES.SKIP TYPE OUT 

([PUSH CHARACTER TO BE TYPED ONTO STACK 

[[BR IF IT ISN'T THE TERMINATOR 

[[IF TERMINATOR POP IT &FF THE STACK 

[[RESTORE R0 

[[ADJUST RETURN PC 

; [RETURN 

[[BRANCH IF <HT> 



[[BRANCH IF NOT <CRLF> 

[[POP <CR><LF> EOUIV 
[[TYPE A CR AND LF 

SCHARCNT [[CLEAR CHARACTER COUNT 

2S [[GET NEXT CHARACTER I 

PCSTYPEC [[CO TYPE THIS CHARACTER 

SFILLC. rSP)* [[IS IT TIME FOR FILLER CHARS. 7 

2S ;[IF NO GO GEI NEXT«CHAR. 

SNULL, -(SP) [[GET * OF ULLER CHARS. NEEDED 

[[AND THE NULL CHAR. 

l(SP) ([DOES A NULL NEED TO BE TYPED? 

6S [[BR IF NO — GO POP THE NULL OFF OF STACK 

PCSTYPEC [(CO TYPE A NULL 

SCHARCNT [[DO NOT COUNT AS A COUNT 
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4760 


031036 


•00770 








BP 


7S 


4761 
4762 










[HORIZONTAL TAB 


PROCESSOR 


4763 
















4764 


031040 


112716 


000040 




8S! 


MOVB 


»• ,(SP) 


4765 


•31044 


004737 


031064 




9S: 


JSR 


PCSTYPEC 


4766 


•31050 


132737 


000007 


031130 




BITB 


«7, SCHARCNT 


4767 


031056 


•01372 








BNE 


9S 


4768 


• 3106<1 


•05726 








TST 


(SPl* 


4769 


031062 


•00724 








BR 


2S 


4770 


031064 


105777 


150066 




STYPECI 


TSTB 


esTPS 


4771 


031070 


100375 








BPL 


STYPEC 


4772 


031072 


116677 


000002 


150060 




MOVB 


21SP),8STPB 


4773 


031100 


122766 


000015 


000002 




CMPR 


tCR,2(SP) 


4774 


031106 


001001 








BNE 


IS 


4775 


•31110 


105037 


031130 






CLBB 


SCHARCNT 


4776 


031114 


000406 








BR 


STYPEX 


4777 


031116 


122766 


000012 


000002 


IS: 


CMPB 


ILF,2(SP) 


4778 


•31124 


B01402 








BECi 


STYPEX 


4779 


•31126 


105227 








INCB 


(PC)t 


4780 


•31130 


•00000 






SCHARCNT:, WORD 





4781 


R31132 


•00207 






STYPEX: 


RTS 


PC 


4782 

















([LOOP 



[[REPLACE TAB WITH SPACE 

[[TYPE A SPACE 

[[BRANCH IF NOT AT 

[(TAB STOP 

[(POP SPACE OFF STACK 

([GET NEXT CHARACTER 

[[WAIT UNTIL PRINTER IS READY 

[[LOAD CHAR TO RE TYPED INTO DATA REG. 

[[IS CHARACIER A CARRIAGE RETURN? 

[[BRANCH IF NO 

[1YES--CLFAR CHARACTER COUNT 

[ [EXIT 

([IS CHARACTER A LINE FEED? 

[[BRANCH IF YES 

[[COUNT THE CHARACTER 

[[CHARACTER COUNT STORAGE 
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4711] 
4764 
4785 
4786 
4787 
4798 
4789 
479J 
4791 
4792 
479J 
4794 
4795 
4796 
4797 
4798 
4799 

4Bi>e 

481)1 

48el 

48e3 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 
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031131 

031142 

031150 

031152 

031160 

031160 

031162 

031164 

03117U 

031172 

031200 

fl3l202 

0312l>t 

031212 

03U16 

031224 

0312)0 

•312)2 

031236 

031240 

031242 

031246 

0)1250 

031254 

031262 

V31264 

0)1272 

031300 

0)1)04 

031)1U 

031312 

•31312 

031316 

031320 

031)24 

031326 

•31332 

•31)34 

•31342 

0)1)50 

•31354 

0)1)60 

031)64 

•31370 

0)1)72 

031374 

031376 

•31)77 

031400 



112737 090001 

1127)7 000001 
00040) 

112737 0001)01 



031400 
0)1)76 



031400 



010046 
010146 
105737 
001450 
1227)7 
001031 
132737 
001425 
017600 
062766 
0057)7 
001375 
•100)7 
105720 
001)76 
16)700 
006200 
0100)7 
012737 
00041) 
0176)7 
062766 
01)746 
0047)7 
000000 

1057)7 
001416 
005737 
00141) 
0057)7 
001)75 
0176)7 
062766 
P05217 
105037 
1950)7 
1050)7 
012601 
B12600 
000207 
000 
000 
000 
0)1402 
080200 
000001 
000r00 



SATYlI 
SATY): 

•AIY4: 
tATYCl 



031376 

000001 

000100 

000004 
000002 
001202 



001220 
000004 

000004 
000002 
177776 
0)0652 



001202 

000004 
000002 
001202 
031400 
0)1)77 
031376 



001202 
0)1)10 



4SI 
5SI 

10S 



001204 
000004 



USl 



12SI 



MOVP 
HOVB 
BB 
HOVB 

MOV 

HOV 

T5TB 

BFO 

CMPB 

PNt 

OITB 

PEO 

MOV 

ADU 

TST 

BNE 

HOV 

TSTB 

BNE 

Sl.'b 

ASK 

MOV 

MOV 

BP 

MOV 

AOU 

MOV 

JSK 

.WORD 



TSTB 
BFQ 
TST 
BEO 
TST 
KttZ 
MOV 
ADD 
INC 
CLBB 
CLPB 
CLRB 
MOV 
MOV 
PTS 
.BYTE 
.BYTE 
.BYTE 
.EVEN 
APTSI7E»2t»0 
APTENV=001 
APTSPOOL=100 



4MFLG! 
8LFLG; 
tFFLGl 



ll.SFFLG 
ll.SHFLG 
SATYC 
tl.SFFLG 

R0,-(?P) 

Rl,-(SP) 

JMFLG 

5$ 

IAPTE»IV,8E»V 

}e 

IAPT5P00L,»ENVM 

3S 

»4(SP),R0 

I2,4(SP) 

JMSGTYPF 

IS 

P0.$MSGAD 

(P0)» 

2S 

$MSGAn,R0 

R0 

P0.$HSGLGT 

I4,SMSGTYPE 

5S 

84(SP)»4S 

•2.4(SP) 

177776. -(SP) 

PC, 8 TYPE 



»FFIjG 

12S 

(ENV 

12S 

SMSGTYPE 

lU 

S4(SP1.8F«TAL 

«2,4(SP1 

SMSGTYPE 

SFFLG 

SLFLG 

SMFI.G 

(SP)».R1 

(SP)*,B0 

PC 







;;T0 REPORT FATAL ERROR 
;iTO TYPE A MESSAGE 

;jIO ONLY REPORT FATAL ERROR 

; jPtlSH P0 ON STACK 
;[PUSH Bl ON STACK 
.(SHOULD TYPE A MESSAGE? 
;;IF NOT! BP 
fjOPLRATlNG UNDER APT? 
j;lF NOT! BR 
;!SHOULD SPOOL MESSAGES? 
JjIF NOT! BB 
.(GET MESSAGE ADDR. 

[ (BUMP RETURN ADDR. 
,!SEE IF DONE h/ LAST XMISSION? 
JjIF NOT! WAIT 
■(PUT ADDR IN MAILBOX 
;!FINO END OF MESSAGE 

;;SUB START OF MESSAGE 
((GET MESSAGE LNGTH IN WORDS 
-[PUT LENGTH IN MAILBOX 
•(TELL APT TO TAKE MSG. 

.-PUT MSG ADDR IN JSR LINKAGE 
(I BUMP RETURN AD0PE5S 
((PUSH 177776 OH STACK 
((CALL TYPE MACRO 



! (SHOULD REPORT FATAL ERROR? 

;!IF NOT! RB 

.(RUNNING UNDER APT? 

;(1F NOT! BB 

(.FINISHED LAST MESSAGE? 

((IF NOT! hAIT 

J (GET ERROR • 

J (BUMP RETURN ADDR. 
((TELL APT TO TAKE ERROR 
((CLEAR FATAL FLAG 
( (CLEAR LOG FLAG 
; (CLEAR MESSAGE FLAG 
. [POP STACK INTO R1 
((POP STACK INTO P0 
((RETURN 
((MESSG. FLAG 
;;LOG FLAG 
( (FATAL fLAG 
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DQFPDB.P11 



APTCSUP«040 
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4840 
4R41 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
48S0 
48S1 
48J2 
48S3 
4854 
4BS; 
4856 
4857 
4898 
4859 
4860 
4861 
4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4SSI 
4882 
4883 
4884 
4885 
4886 
4887 
4888 
4889 
4890 
4891 
4892 
4893 
4894 
4895 



031402 
n31406 
031414 
03142H 
031424 
031426 
031434 
•31442 
031450 
031452 
031454 
031456 
(31462 
031464 
■31470 
031474 
031500 
031504 
031506 
031510 
031512 
031514 
031516 
031520 
031522 
(>31524 
031530 
031532 
031536 
031540 
031542 



1)17646 
116637 
112637 
062716 
000406 
112737 
113737 
112737 
010346 
010446 
010S46 
1U704 
005404 
062704 
110437 
1137B4 
016605 
005003 
006105 
020404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 



.SBTTL BINARY 10 OCTAl. (ASCII) AND TYPE 

;;»»••»»••••»•»*#»#•••»»•»•»••••••••••••«••««•••»••»•«•••*••*•**• 

1»this routine is usf.d to change a 16-bit binary number to a 6-digit 

(•octal (ascii) number »n0 type it. 

;»itypos--.entep here to setup suppress zeros and number of digits to type 

(•call: 

;• mov num,.(sp) ; (number to be' typed 

;• typos j (call for typeoui 

;• .byte n ;!n=1 to 6 for number of digits 10 type 

)• .BYTE H !Jh=l OR 

,• SUBTYPE LEADING ZEROS 

*• ;;0=SUPPRESS LEADING ZEROS 

;• 

J««TYPON— -ENTER HERE TO TYPE OUT NITH THE SAME PARAMETERS AS THE LAST 

(••TYPOS OR STYPOC 

(•CALL I 

(• MOV NUM,-(5P) .[NUMBER TO BE TYPED 

(• TYPON ((CALL FOR TYPEOUT 

(• 

(•8typ0c---enter here for typeout of a 16 bit number 

(•call: 

(• mov nu"i,-(sp) ((number to be typed 

(• typoc ((call for typeout 



031627 
000002 

000001 
000006 
000005 



031626 
031625 
000012 



STYpOs: MOV 
B31625 MOVB 

MOVB 
ADD 

031625 STYPOC: MOVB 
031627 MOVB 

031624 STYPOH: MOVB 
MOV 
HOV 
MOV 
MOVB 
NEC 
ADD 
MOVB 
MOVB 
MOV 
CLR 
Its RUL 

BR 
2t: ROL 
ROL 
ROL 
MOV 
3Sl ROL 
DECB 
BPL 
BIC 
BNE 
TST 
BEO 



8(SP),-(SP) 

l(SP),S0fILL 

(SP)+,80"0DE»1 

«J,(SP) 

STYPON 

tl>$0FILL 

»6,«0M0DE»1 

«5,$0CNT 

R3,-(SP) 

P4,-(SP) 

P5,-(SP) 

tONODE*! ,R4 

R4 

16, R4 

R4.S0M0DE 

$0FILL,R4 

12(SP1,R5 

B3 

R5 

38 

R5 

k5 

R5 

P5,R3 

R3 

SOMODF 

7S 

•177770, R3 

48 

R4 

5$ 



(PICKUP THE MODE 
(LOAD 2EP0 FILL SWITCH 
(NUMBER OF DIGITS TO TYPF 
(ADJUST RETURN ADDRESS 

(SET THE ZERO FILL SWITCH 

(SET FOR SIX(6) DIGITS 

(SET THE ITERATION COUNT 

(SAVE R3 

(StVE R4 

(SAVE R5 

(GET THE NUMBER OF DIGITS TO TYPE 

(SUBTRACT IT FOR MAX. ALLOWED 

(SAVE IT FOR USE 

(GET THE ZERO FILL SWITCH 

[PICKUP THE INPUT NUMBER 

(CLEAR THE OUTPUT WORD 

[ROTATE MSB INTO "C" 

(GO DO MSB 

(FORM THIS DIGIT 



((GET LSB OF THIS DIGIT 
( (TYPE THIS DIGIT? 
[[BR IF NO 
[(GET RID OF JUNK 
((TEST FOR 
((SUPPRESS THIS 0? 
((BR IF YES 
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4896 


031544 


005204 




4s: 


INC 


R4 


4897 


031546 


052703 


000060 




BIS 


»'0,R3 


4898 


031552 


052703 


000040 


5S: 


BIS 


1' ,R3 


4899 


031556 


110337 


031622 




HOVB 


R3,RS 


4900 


031562 


104401 


031622 




TYPE 


,8$ 


4901 


031566 


105337 


031624 


7s: 


DECa 


SOCNT 


4902 


031572 


003347 






BGT 


2S 


4903 


031574 


002402 






BLT 


68 


4904 


031576 


005204 






INC 


P4 


4905 


031600 


0007 4 4 






BR 


2S 


4906 


031602 


012605 




6S: 


MOV 


(SP)»,R5 


4907 


031604 


012604 






HOV 


(SP)«,R4 


4908 


031606 


012603 






HOV 


(SP)*,R3 


4909 


031610 


016666 


000002 000004 


HOV 


2(SP),4(SP) 


4910 


031616 


012616 






MOV 


(SP)*,(SP) 


4911 


031620 


000002 






RII 




4912 


031622 


000 




88S 


.BYTE 





4913 


031623 


000 






.BYTE 





4914 


031624 


000 




•OCNT: 


.BYTE 





4915 


031625 


000 




t0FILL: 


.BYTE 





4916 


031626 


000000 




•OMODE: 


.WORD 






{(DON'T SUPPRESS ANYMORE 0'S 

([HAKE THIS DIGIT ASCII 

((MAKE ASCII IF NOT ALREADY 

( [SAVE FOR TYPING 

( [to TYPE THIS DIGIT 

((COUNT BY 1 

[(BR IF MORE TO DO 

((BR IF DONE 

([INSURE LAST DIGIT ISN'T A BLANK 

((GO DO THE LAST DIGIT 

((RESTORE R5 

((RESTORE R4 

((RESTORE R3 

((SET IHE STACK FOR RETURNING 

([RETURN 

([STORAGE FOR ASCII DIGIT 

((TERMINATOR FOR TYPE ROUTINE 

([OCTAL DIGIT COUNTER 

((ZERO FILL SWITCH 

((NUMBER OF DIGITS TO TYPE 
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4917 
4911! 
4919 
493CI 
4921 
4922 
4933 
4924 
4925 
493b 
4937 
4938 
4939 
49JB 
4931 
4032 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
494>l 
4941 
4942 
4943 
4944 
494J 
4946 
4947 
4948 
4949 

49;b 

4951 
4952 
495 3 



a3163«l 
031632 
«3I636 
e3164e 
031642 
(131644 
031650 



031652 
031654 
031662 



•31664 
031666 
031670 
031673 
031674 



010046 

0I660B 000003 

00574SI 

I I 1003 

006 300 

016000 031664 

000200 



011646 
016666 
000002 



031652 
030652 
031426 
031402 
031442 



.SBTTl TBAP DECODER 



!»THIS ROUTINE BIM PICKUP THE bOWER BYTE OF THE "TBAP" INSTRUCTION 
)<«ND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(•OF THF DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
I«CO TO THAT ROUTINE. 



000004 000002 



MOV 


R0,-(SP) I!S«VF B« 


MOV 


2(sP),Re 


SGET TBAP ADDRESS 


TST 


-(R0) 


[BACKUP BY 2 


MOVB 


(R0),P(» 


jGET RIGHT BYTE OF TRAP 


ASL 


Ra 


JPOSITION FOR INDEXING 


HOV 


»TRPAn(Re),Be 


I INDEX TO TABLE 


BT5 


R0 


jGO TO ROUTINE 



I (THIS IS USE TO HANDLE THE "GETPRI" MACRO 



>TRAp2; 



HOV 
MOV 
RTI 



(5P)r-tSP) 
4(SP),2(SP) 



((HOVE THE PC DOWN 
((HOVE THE PSH DO"N 
[(RESTORE THE PStI 



.5BTTL TRAP TABLE 



(♦THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(•BY THE "TRAP" INSTRUCTION. 



( 


ROUTINE 






•TRPAD! 


.WORD 


•TRAP3 






STYPE 


((CALL-TYPE 


TBAP*l(104401) 




ITYPOC 


)(CALL»TYPOC 


TBAP+2(ie44B2) 




(TYPOS 


((CALL«TYPOS 


TRAP»3(1B44»3) 




tTYPON 


((CALL«TYPO» 


TRAP«4(1044B41 



TTl TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
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4954 
4955 

4956 
4957 
4958 
4959 
4960 
4961 
4962 
496 3 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4983 
4989 
499B 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
SBBB 



.SBITL POWER DOWN AND UP ROUTINES 



031676 
031704 
•31712 
031714 
031716 
031720 
031732 
031724 
031726 
031732 
•31736 
031744 
031746 



•31750 
•31756 
•31762 
•31766 
031772 
•31774 
031776 
•33002 
033006 
•32010 
•32012 
•32014 
•32016 
032030 
032022 
032030 
032036 
032040 
032042 
033044 
032046 
03205? 
032052 
•33B54 
032056 
•32064 



012737 
012737 
010B46 
■10146 
010346 
010346 
013446 
010546 
017746 
010637 
013737 
030000 
0007 76 



•12737 
013706 
005037 
0B5237 
0BI37S 
01I60B 
076600 
012677 
012605 
013604 
012603 
012632 
012601 
012600 
012737 
012737 
104401 
033056 
013716 
0B30B» 
BB«IH92 
000B00 
000776 

00SB15 
DBB122 



033050 000034 
000340 000026 



147312 
•33054 
031750 000024 



033050 
033054 

033b)54 
033054 



000336 
147136 



031676 000024 
000340 000026 



B47520 042527 



(POWER DOWN ROUTINE 



HOV 

HOV 

MOV 

MOV 

HOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

bR 



ISILLnP,8lpURVEC ((SET FOR (AST UP 
I34B.I>IPWRVEC«2 ((PR10t7 



R0,-(SP1 

R1,-(SP1 

B2,-(SP) 

P3,-(SP) 

H4,-(SP) 

B5,-(SP) 

0SWB,-tSP) 

SP,$SkVB6 



([PUSH RB ON STACK 

({PUSH Bl ON STACK 

[(PUSH R2 ON STACK 

[[PUSH R3 ON STACK 

[(PUSH R4 ON STACK 

([PUSH R5 ON STACK 
([PUSH asWR ON STACK 
I [SAVE SP 



l$PHBtlP.0»PWRVEC ((SET UP VECTOR 



((•••• 
(POWER 

tPWRUPI 



SPWRMGI 
SPWRAD; 
SlLLUPl 

SSAVB61 

8P0WER1 



UP ROUTIN 
MOV 
MOV 
CLB 
INC 
BNL 
MOV 
HED 
MOV 
MOV 
HOV 
MOV 
MOV 
HOV 
HOV 
MOV 
MOV 
TYPE 
.WORD 
MOV 
.WORD 
BII 
HALT 



• SILLt'P.BiPWRVEC 

SSAVRS.SP 

tSAVR6 

tSAVR6 

IS 

(SP),BB 

r226 

(SP)»,0SWR 

(SP)«,B5 

(SP)*,R4 

(SP)t,R3 

(SP)»,B2 

(SP)t,Rl 

(SPX.RB 

ISPWRDN.'IPWRVEC 

l34B,a|PWRVEC«2 

SPOWER 

(PC)*,(sp) 

START 



BR .-2 



.ASCIZ <15><12>"P0"ER' 



([SET FOR FAST DOWN 
((GET SP 

((WAIT LOOP FOR THE TTY 
[(WAIT FOR THE INC 
((OF WORD 

(GET SAVED SWR OFF STACK 
(RESTORE SWR CONTENTS 
((POP STACK INTO 0SWB 
((POP STACK INTO R5 
((POP STACK INTO B4 
([POP STACK INTO R3 
((POP STACK INTO RJ 
((POP STACK INTO Rl 
((POP STACK INTO RB 

((SET UP THE POWER DOWN VECTOR 
((PRI0:7 

(REPORT THE POWER FAILURE 
((POWEB (AIL MESSAGE POINTER 
((RESTABT AT START 
([RESTABT ADDRESS 

([THE POWER UP SEUUENCE WAS STARTED 
.( BEFORE THE POWER DOWN WAS COMPLETE 
{(PUT THE SP HEBE 



• \y 



FPU »DD/SUB/MUI»/DIV R4ND0H EXER 
DOFPDB.PIl 84.MAY-77 17:38 



seei 
se«3 

9004 

5^1)6 
5007 
5008 
5009 
5BI(* 

sen 

5012 

5013 

S01t 

5015 

5016 

5017 

5016 

5019 

5020 

5021 

S022 

5023 

5»J» 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 

5052 

5053 

5054 

5055 

5056 



e32t<66 047510 035124 
e32<»74 040527 046522 

032102 000 



M«Cni 27(1006) 04-MAI-77 1RI18 PAGE 106 

ERROR MESSAGES, DATA HEADERS, DATA VECTORS, OPERAND VECTORS, ETC 

.SBTTL ERROR MESSAGES, DATA HEADERS, DATA VECTORS, OPERAND VICTORS, ETC 

;alESSAGE PREFIX 
000040 ASCHOTI .ASCIZ "HOT: " 
020072 ASCHRMt .»SCIJ "HARM! " 



032103 

032110 

032116 

032124 

032132 

032140 

032146 

032154 

032162 

032170 

032175 

032202 

032210 

032216 

032224 

032232 

032235 

032242 

032250 

032256 

032264 

032272 

032275 

03230? 

032310 

032316 

032324 

032325 

032332 

032340 

032346 

032354 

032355 

032362 

032370 

032376 

032404 

U32405 

•32412 

B32420 

032426 

032434 

032435 

032442 

032450 

032456 

032464 

032472 



106 

020105 

044503 

070055 

051105 

026504 

04244a 

05 1 5 1 1 

043040 

05 1 1 2 2 

106 

070105 

044503 

020055 

952114 

051117 

104 

020105 

044503 

020055 

052114 

051117 

101 

042057 

042522 

042440 

000 

123 

042057 

042522 

042440 

000 

115 

042057 

042522 

042440 

000 

104 

04J057 

042522 

042440 

000 

125 

041505 

046106 

043516 

052116 

02612,) 



046455 
054105 
042523 
050106 
047522 
B47515 
042530 
051105 
0S152B 
051117 
046455 
054105 
042523 
042522 
042440 

000 
046455 
054105 
042523 
042522 
042440 

000 
042104 
020051 
052523 
051122 

041125 
020051 
052523 
051122 

046125 
020051 
052523 
051122 

053111 
020051 
052523 
051122 

042516 
042524 
040517 

050040 
05204a 
044440 



042117 EHA: 
051105 
020122 
020123 
000122 

042504 EMB: 
041522 
026440 
042440 
000 
042117 EHC: 
051105 
020122 
052523 
051122 

042U7 tHD: 

051105 

020122 

052523 

051122 

043050 EME: 
020055 
052114 
051117 

043050 EMF; 
020055 
052114 
05 1 1 17 

043050 EHG: 
020055 
052114 
051117 



IERROR MESSAGES HERE 

.ASCII "f-HOOE EXERCISER - EPS FRROR" 



.ASCII "P.HODE EXERCISER - EPS ERROR" 



ASCIZ "F.MODE EXERCISER . RESULT ERROR" 



.ASCII "D-MORE EXERCISER - RESULT ERROR" 



.ASCII "ADD(F/0) . RESULT ERROR" 



.ASCII "SUB(F/D) . RESULT ERROR" 



.ASCII "f"UL(f/D) . RESULT ERROR" 



043050 EHHI .ASCII "DIVCF/D) - RESULT ERROR" 

020055 

052114 

051117 

050130 EMI: .ASCII "UNEXPECTED FLOATING POINT TRAP, IGNORED AND CONTINUING" 

020104 

044524 

044517 

040522 

047107 



ZVol%r.''''r^'>.l.irr.u'^r """ ^^^iriES^JG^sro^TA'S^i^ERrDAirvECTORS, operand vectors, ETC 



5057 

5059 

5059 

5060 

5061 

506 2 

506 3 

5064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083 

5084 

5085 

5086 

5087 

50S8 

50B9 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

510S 

5109 

5110 

5111 

5112 



032500 

032506 

032514 

032522 

032524 

0325)2 

032540 

032545 

032552 

032560 

032566 

032574 

032602 

032607 

032614 

032622 

032630 

032636 

032644 

032651 

032656 

032664 

032672 

032700 

«32706 

032713 

032720 

032726 

032734 

032742 

032750 

032756 

032761 

032766 

032774 

033002 

033006 

033014 

033022 

033030 

033033 

03 3040 

033046 

033054 

033060 

033066 

033074 

■33102 

033105 

033112 

033120 

033126 

033132 

033140 

•33146 

0331S4 



B51117 
042116 
044524 
000107 
042101 
£43040 
051122 
123 
020055 
051105 
052515 
043040 
051122 
101 
020055 
051105 
042101 
043040 
051122 
123 
020055 
051105 
052515 
043040 
051122 
104 
020055 
051105 
042101 
043040 
040505 
051117 
123 
020055 
042506 
047522 
052515 
043040 
040505 
051117 
104 
020055 
042506 
047522 
042101 
043040 
040505 
051117 
123 
020055 
042506 
047522 
052515 
043040 
040505 
051117 



042105 040440 
041440 047117 
052516 047111 



043104 
051520 
051117 
041125 
050106 
047522 
043114 
051520 
051117 
053111 
050106 
047522 
042104 
051520 
05 1 1 1 7 
041125 
050106 
047522 
042114 
051520 
0511 17 
053111 
050106 
047522 
043104 
041505 
042440 
000 
041125 
042506 
020101 
000122 
043114 
041505 
042440 

000 

053111 
042506 
020101 
000122 
042104 
041505 
042440 
000 
041125 
042506 
020101 
000122 
042114 
041505 
042440 



026440 
042440 

000 
020106 
020123 
000122 
026440 
042440 

000 
020106 
020123 
000122 
026440 
042440 

000 
020104 
020123 
000122 
026440 
042440 

000 
020104 
02012) 
000122 
026440 
043057 
051122 

020106 
027503 
051105 

026440 
043057 
051122 

020106 
027503 
051105 

026440 
043057 
051122 

020104 
027503 
051105 

026440 
043057 
051122 



.ASCII "APDF - EPS ERROR" 

.ASCII "SURF - FPS ERROR" 

.ASCII "MULF - FPS ERROR" 

.ASCII "DIVF - FPS ERROR" 

.ASCII "ADOD • FPS ERROR" 

.ASCII "SUBD - FPS ERPOP" 

.ASCII "MtlLD - EPS ERROR" 

.ASCII "DIVD - FPS ERROR" 

.ASCII "ADDF - FEC/FEA ERROR" 

.ASCII "SUBF - FEC/FEA ERROR" 

.ASCII "MULF - FEC/FEA ERROR" 

.ASCII "DIVF - FEC/FEA ERROR" 

.ASCII "ADDD • FEC/FEA ERROR" 

.ASCII "SUBD . FEC/FEA ERROR" 

.ASCII "MULD - FEC/FEA ERROR" 



FPU ADD/5UB/HUL/DIV BANDO" EXER MBCYll 27(H106) (14-HAY-77 18118 PAGE li» 

DOFPDB.PU 34. MAI. 77 17:3B ERROR MESSAGES, DATA HEADERS, DATA VECTORS, OPERAND VECTORS, ETC 



5113 
5114 
5115 
5116 
5117 
5118 
5119 
512B 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5128 
5129 
S13id 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
514fl 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5ISI« 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 



133157 104 053111 020104 

033164 0201155 042506 027503 

033172 042506 02010) 051105 

033300 047522 000122 



EMIt 



033204 

033212 
033220 
033226 
033234 
033242 
•33250 
033256 
033264 
033272 
03)300 
033306 
033314 
033322 
•33330 
•33336 
•33344 
•33352 
033354 
•33362 
033370 
033376 
•33404 
■33412 
»3342tl 
•33436 
033433 
•33440 
033446 
033454 
033462 
033470 



033474 
033502 
033510 
033514 
•33522 
033526 
•33534 
•33536 
033544 
•33550 
•33556 
033S64 



054105 
041522 
026455 
041505 
026455 
042522 
042105 
026455 
026455 
050130 
026504 
026455 
026tll 
026455 
042522 
042105 
026455 
0Ef0055 
046117 
047411 
004523 
020011 
043040 
043044 
043l«44 
043044 
105 
043055 
053103 
050130 
040505 
042047 



023520 
023526 
0424SS 
042524 
026411 
042503 
026455 
026455 
026455 
041505 
026455 
026455 
026455 
026455 
042503 
026455 
026455 

020104 
042114 
043040 
042506 
040505 
051520 
041505 
040505 
050130 
041505 
042047 
042047 
051055 



033474 
003400 
002402 
002 366 
003416 
002410 
002416 
002424 
•03406 
•03414 
•03370 
•02364 
003402 



002362 
003364 
000000 
002420 



003410 
000000 
002372 
002366 
002404 



OHA; 
DHBI 



004504 
000104 
05«13a 
026504 
026455 
053111 
000055 
026455 
042455 
042534 
036455 
026455 
026455 
026455 
053111 
026455 
026455 

041520 
050040 
051520 
004503 
030011 
020011 
020011 
000 
042047 
051055 
043411 
043055 
053103 



000000 DTA; 
003404 DTB: 



.ASCIZ "DIVD • FEC/FEA ERROR" 



■DATA HEADERS HERE 
,»SCI2 "EXP'O RCV'D" 

.ASCIZ " EXPECIEB... .. -RECEIVED — " 



.ASCII "OLD PC OlD PS FPS 



.ASCIZ "EXP'D.EEC.RCV'D 



EXP'D-FEA.RCV'D" 



002406 DTDI 
002420 002422 DTEt 
003412 



003362 DTF! 

002400 



(DATA VECTORS HERE 

.EVEN 

.WORD »FP5,FPS,0 

.WORD SFEC,FEC,«FEA,FEA,0 

.WORD ANS3,>NS2*2,ANS1,ANS1»3,0 

.WORD ANS2,A>IS2»2,ANS2 + 4,A«S2»6 

.WORD ANSI, ANSI *3, ANSI «4, ANSI *6,0 

.WORD FPPOPC,FPPOPS,FPS,FFC,PEA,«FpS,9FtC,»FEA,0 



FPU ADO/SUB/MUL/DIV RANDOM EXER HACKll 27(1006) "-»"-", 'Si! ' „"=„'"' 



DQFPDB.PIl 
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ERROR MESSAGES, DATA HEADERS, DATA VECTORS, OPERAND VECTORS, ETC 



5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5199 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 



•33572 
•33600 
•33606 
033614 
•33632 
•33630 
•33632 
B33640 
033642 
•33650 
•33652 
•33660 
•33662 
•33670 
033673 
033700 
•33702 
•3371U 
033712 
033720 
033722 
033730 
033736 
033744 
033752 
033760 
033766 
033774 
034002 
034010 
034016 
t34034 



•34032 
•02432 
034042 
•02442 
034033 
000000 
•34043 
000000 
034052 



002426 
002434 
002436 
003444 
002426 



002430 
000000 
003440 
000300 
002430 



003436 003440 
003446 003450 



034060 002456 



002516 



034066 

000000 

0)4074 
000000 
034110 
000000 
034102 
00000^ 
034052 
002452 
034060 
002462 
034066 
003472 
034074 
002502 
034110 
002512 
034102 
002522 



002446 
002454 
002456 
002464 
002466 
002474 
002476 
003504 
002506 
002514 
002516 
002534 



002460 
002470 
002500 
003510 

003520 

002450 
000000 
00246J 



002470 
000000 
003500 



003510 
000000 
00252" 



LOO: 
HID! 
LOF! 
HIFl 

opiF: 

0P2F! 

0P3F1 
0P4FI 
0P5F! 
0P6FI 
OPIDI 
0P2D! 

0P3D: 

0P4DI 

op5d: 
0p6D: 



•34032 047514 053516 035115 XLOl 



034040 
034042 
•34050 
034052 
034060 
034066 
•34074 
•34102 
•34110 



000011 
044510 
090011 
050117 
050117 
•50117 
050117 
•50117 
050117 



052516 035U5 XHlI 



035061 
035062 
035063 
035064 
035066 
035065 



000011 
000011 
000011 
000011 
000011 
000011 



XOPII 
X0P2I 
X0P3I 
X0P4I 
X0P6I 
X0P5I 



(OPEPAND VECTORS HERE 

.EVEN 

.WORD xl.O,I.ONUM,LOIIUMt2,LONUB*4,LONUHt6,B 

.WORD XHI,HINUM,HINUM»2,HINUMt4,HINUM»6,0 

.WORD XLO,LOMnH,I,ONUM42,0 

.WORD XHI,HtNUM,HINUMt2,« 

.wopo xopi,opi,opi«2,a 

.WORD XOP2,OP3,OP2*2,0 

.WORD XOP3,OP3,OP3»2,0 

.WORD XOP4,OP4,Op4t3,0 

.WORD XOPS,OP5,OP542,0 

.WORD XOP6,OP6,OP642,e 

.WORD XOP1,OP1,OP1»3,OP1»4,OP1«6,0 

.WORD XOP2,OP3,Op343,Op3t4,OP2»6,0 

.WORD X0P3,0P3,0P3+2,0P3*4,0P3*6,» 

.WORD XOP4»OP4,Op4+2,OP4+4,OP4+6,0 

.WORD XOP5,Op5,0p5«2,0p5»4,0P5*6,B 

.WORD XOP6,OP6,Op6*2,OP6+4,OP6+6,0 



lOrERAND TITLES 
.ASCIZ "LONUMI"<U> 

.ASCIZ "HINUM1"<11> 

.ASCIZ "0P1I"<U> 
.ASCIZ "0P2I"<11> 
' "0P3I"<11> 
"0P4I"<11> 
"0P6I"<11> 
"0P5>"<11> 



•ASClZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

(THE END 

.END 
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ABASE s 


»a»«B« 


258 








ACDWl I 


0i9eU80 


258 








ACDU: s 


gMeett 


258 








ACPUOP» 


MiMa3 


258 


273 






ADDC8 


•02S26 


4621 


570 


3372 


367I» 


ADOCl 


BBJ5JB 


4631 


3372 


371511 




ADDCJ 


eB2532 


464t 


3372 


3694« 




ADDC3 


ea}S34 


4654 


3372 


3717» 




ADDC4 


»B2536 


4661 


3372 


3768* 




ADDC5 


802^4)1 


467t 


3372 


3821* 


3841* 


ADDC6 


se2542 


4681 


3372 


3824* 


3844« 


ADDC7 


082544 


4694 


3372 


3855* 


3901* 


ADDCe 


082546 


47B« 


3372 


3902« 




ADD«» « 


0e880;4 


258 








ADDWl > 


ge8ki80 


258 








ADDMliSs 


000000 


2S8 








ADDtltl« 


•00000 


258 








ADD1I12. 


000000 


258 








ADD»13« 


BJ0000 


258 








ADDWI4S 


000009 


258 








ADD«15» 


000000 


258 








ADD1I2 : 


080000 


258 








AODWJ > 


000088 


258 








ADDHt • 


030000 


258 








ADDHS 3 


e80U0>i 


258 








ADDW6 < 


000000 


258 








ADDW7 » 


000000 


258 








ADDWe > 


•08808 


258 








ADDW9 > 


•80800 


258 








ADEVCT. 


098800 


258 


264 






ADFVH « 


•00000 


258 








AENDI 


•04182 


786 


713 


7171 




AEND10 


•06466 


1151 


1160 


1167 


11711 


AENDll 


806742 


1224 


1231 


12351 




AEND12 


•07236 


1291 


1300 


13041 




AENDI] 


•07 464 


1348 


1355 


13591 




AENOM 


B07722 


1403 


1412 


14161 




AEND15 


•10230 


1472 


1479 


1484 


14884 


AENDI6 


O105S6 


1544 


1553 


1568 


15644 


AEND17 


•11026 


1688 


1615 


1628 


16244 


AEN02 


•04376 


772 


781 


7854 




AEND28 


•11316 


1668 


1677 


1684 


16884 


AEND] 


•04624 


829 


836 


8404 




AENDt 


•85062 


884 


893 


8974 




AENDS 


•05370 


953 


960 


965 


9694 


AENDe 


•05716 


1026 


1035 


1042 


10464 


AEND7 


•06166 


1891 


1098 


1103 


11074 


AENV s 


•80000 


258 


269 






AENVM s 


•00000 


258 


270 






AERRI 


•04082 


688 


6921 






AERRIl 


•06642 


1206 


12181 






AEBP12 


•07126 


1273 


12774 






AERR15 


•18106 


1454 


14581 






AERR16 


•I8414 


1526 


15381 






AERR2 


104266 


754 


7584 






AERB5 


•05246 


935 


9394 







FPU ABD/SUB/MUL/DIV RANOON EXER MACVlt 27(1006) 04-MAl(-77 18!l8 "GE112 
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AERR6 

AFATAL- 

AMADRl' 

AMADB2> 

AMADR3< 

AMA0R4> 

AMAHSK 

AI<A>l&2> 

AHA><S3> 

AI<AMS4> 

AKSCAPs 

AHSGLGs 

AMSGTY« 

AMTYPH 

ANTYP2« 

AMTYP3I 

AMTYP4» 

ANSI 



■05554 
•00000 

•00000 

•08000 
030000 
•8880^ 
•08880 
•00880 
000000 
•08000 



•00800 

«0e080 

008880 
000000 
080008 



•02486 



APASS ■ •••000 

APRIORs •80008 

APTCSUs •08048 

APTCNV taeeei 



1008 
258 
258 
258 
258 
258 
258 
258 
258 
258 
258 
258 
258 
258 
258 
258 
258 
4404 
779 

e90> 

1028« 
1093* 
1157» 
1232" 
1353 
1476« 
1554« 
1618 
1682 
1S14> 
1925» 
2043» 
2119» 
2189» 
2262 
23974 
2532* 
2608 
2686* 
2762» 
28964 
3014» 
3107» 
3285» 
3220» 
4424 
1069 
1444 
1898 
2296 
2791 
3179 
258 
258 
4734 
4595 



10124 
261 



266 
267 
260 



6894 
792» 
891 
1029» 
10944 
1158 
1274* 
1356* 
1477 
1555* 
1621» 
1685» 
1815 
1926" 
2062* 
2126» 
2190* 
2265« 
2398 
2533» 
26114 
2687 
2763 
2897» 
3033» 
3115» 
3207* 
3221» 

672 
1075 
1510 
1904 
2359 
2797 
3207 
263 

48394 
4727 



708» 
824> 
894> 
1830> 
18954 
1161» 
1293* 
1398* 
14804 
155611 
1663* 
1724« 
1818» 
1927 
2B63» 
21274 
2191 
2307» 
2401» 
2534 
261211 
26904 
2766* 
2898 
30344 
3117» 
320B» 
3222« 

678 
1129 
1516 
19S4 
2)65 
2157 
3211 



709» 
B31« 
93611 
1031« 
1896 
1162« 
1294' 
1405» 
14B1» 
15574 
167011 
1743* 
1868* 
1930« 
2064* 
2128* 
219411 
232611 
2443« 
2537« 
2613* 
2732» 
28884 
2901* 
3035» 
311811 
3289* 
3223* 

738 
1135 
1586 
1960 
2426 
2863 
3214 



718» 
83211 
955» 
t892« 
189911 
1163» 
129S» 
1406» 
1482 
1558 
1671» 
1744» 
1867* 
197l« 
2065* 
2129 
219511 
2327» 
2462« 
2538» 
26144 
275111 
282711 
2943» 
303611 
311911 
3218< 
3224* 

744 
1190 
1592 
2026 
2432 
2926 
3216 



711 
833« 
956» 
1033 
11004 
1164* 
1296» 
1487« 
14854 
15614 
16724 
1745« 
1868« 
1990* 
2066* 
2132* 
21964 
23284 
3463« 
2539 
2615 
2752» 
282811 
2962* 
3037* 
312111 
3211* 
3225» 

807 
1196 
1646 
2032 
2495 
2932 
5159 



714* 
834 
95711 
1036» 
1101 
1165 
1297» 
1408* 
1527« 
1603» 
16734 
17 46 
1869* 
1991» 
2867 
2133» 
2197* 
2329* 
246411 
2542» 
2618» 
2753* 
28294 
2963* 
3038 
3122* 
3212* 
3227 
813 
1257 
1652 
2102 
2501 
2997 
5161 



755* 
837» 
958 
1037» 
1184« 
116811 
1298 
1409« 
154611 
1610* 
16744 
1749» 
1879 
1992* 
2878" 
2134 
2198 
2330» 
2465» 
2584< 
2668* 
2754* 
2838 
2964* 
3041* 
3123» 
3213* 
3229 
862 
1263 
1707 
2108 
2567 
3003 



774* 
879» 
9614 
18384 
1146« 
1207. 
1301* 
1410 
154711 
1611« 
1675 
17914 
187311 
1993 
207 !• 
2137» 
2201* 
2331 
246611 
2683< 
2679» 
27S5» 
283311 
2965 
3842* 
3124. 
32144 
3231 
868 
1326 
1713 
2162 
2573 
3886 



77S» 
88b» 
96211 
I039» 
1153» 
12264 
134311 
1413» 
1548» 
1612» 
1678» 
isle* 
191511 
I996« 
207211 
2179* 
224011 
23344 
2467 
26044 
2680* 
2756 
28744 
29684 
3843* 
3126 
3215» 
3234 
919 
1332 
1774 
2168 
2643 
3089 



77611 
88711 
963 

1040 

1154. 

1227. 

1358. 

1455. 

1549. 

1613 

1679. 

1811. 

1922* 

1997. 

2873. 

2186. 

2259. 

2376. 

2470. 

2605* 

2681. 

2759. 

2893. 

2969. 

3844. 

3129 

3216. 

3237. 

925 
1381 
1780 
2223 
2649 
3117 



777. 
888. 
966* 

10434 

1155. 

1228. 

1351. 

1474. 

1550. 

1616. 

1680. 

1812. 

1923. 

1998 

2074 

21874 

2260. 

2395. 

2512. 

2686. 

2682 

2760. 
2894. 
2970 
3045 
31324 
3218. 
5159 
992 
1387 
1843 
2229 
2715 
3119 



778. 
889. 

1889. 

1886. 

1156. 

1229 

1352. 

1475. 

1551 

1617. 

1681. 

1813. 

1924. 

2801« 

2077. 

2188. 

2261. 

2396. 

2531. 

2687. 

2685. 

2761. 
2B95» 
2973. 
3848. 
3197. 
3219. 
5163 
998 
1438 
1849 
2290 
2721 
3176 
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APTSIZ" 


»ee3Be 


560 


48361 




APTSPOs 


(001110 


4729 


4797 


48381 


AREII 


B037S6 


659 


6851 




ARETie 


006326 


1116 


11421 




ARETU 


006616 


1177 


12031 




ABET12 


•07102 


1244 


12701 




ARETI] 


§07376 


1313 


13391 




ARET14 


007624 


1368 


1394* 




ARET15 


010062 


1425 


1451« 




ARETI 6 


010370 


1497 


15231 




ARETI 7 


010716 


1573 


15991 




ARET? 


004242 


725 


7511 




ARET}e 


011166 


1633 


16591 




ARET3 


(04S36 


794 


8201 




ARET4 


004764 


849 


8751 




ARET5 


00S222 


906 


9331 




ARET6 


005930 


979 


1005* 




ARETI 


*06eS6 


1056 


1082< 




ASCHOT 


(32066 


651 


50044 




ASCWRM 


(32074 


653 


5005« 




ASWREGs 


(0(000 


258 


371 




ATESTN- 


(00000 


258 


262 




AT5T1 


(04040 


693 


701 


7B4» 


ATSTte 


(e63S2 


1145 


U49t 




ATSTll 


(06700 


1211 


1219 


13221 


ATSTI2 


(07164 


1278 


1286 


12891 


ATST13 


(07422 


1342 


t346< 




AI5TM 


(07650 


1397 


1401* 




AISIH 


(10144 


1459 


1467 


14701 


ATST16 


•10452 


1531 


1539 


15424 


ATSTI7 


(10742 


1602 


16061 




ATSTJ 


(04324 


759 


767 


7701 


ATST30 


•11212 


1662 


16664 




ATST} 


•04562 


823 


827< 




AT5T4 


(05010 


878 


882< 




ATST5 


•05304 


940 


948 


9511 


AT5T6 


005612 


1013 


1021 


1024f 


AIST7 


006102 


1085 


1089t 




AUNIT ■ 


•00004 


258 


365 




AUS»R • 


•00000 


258 


272 




AVECTI» 


•00000 


258 






AVECT2« 


■•0000 


358 






8GNMES 


•02622 


4981 


575 




Biie ■ 


•00001 


12SI 






BITge « 


•00001 


115« 


125 




BITtll • 


•00002 


1141 


124 




BIT02 • 


•00004 


113t 


123 




BITe3 • 


»00BII» 


1121 


122 




BIT04 > 


•00020 


nil 


121 


581 


BIT05 • 


•40040 


1101 


120 




BITB6 • 


•00100 


1091 


119 




BITB7 » 


•00200 


1081 


118 




BITee • 


•00400 


1071 


117 


4522 


B1TB9 • 


•0100D 


106» 


lie 


4530 


BITI « 


•00002 


1241 






BITie > 


•02000 


1051 


4583 
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BIT11 • 


•04D00 


1041 


4537 








BIT12 • 


•10000 


1031 


613 


643 


645 


648 3266 


BIT13 ■ 


•20000 


1021 


4590 








BIT14 > 


• 4000k) 


101t 


4508 








BIT15 > 


100000 


1001 










BIT2 « 


•00004 


1231 










BrT3 • 


•00010 


1221 










B1T4 • 


•00020 


121) 










BIT5 • 


•00040 


1201 










BIT6 > 


•00100 


119t 










BIT7 • 


000200 


1181 










BIT8 > 


•00400 


1171 










BIT9 « 


• 310001 


1161 










BPTVtC" 


•00014 


132« 










CR » 


•00015 


401 


498 


503 


511 


4773 4783 


CPLF » 


•00200 


411 


4744 


4783 






DniSP « 


177570 


471 


238 


548 






OEKDI 


014*42 


2257 


2264 


32681 






DFNDIO 


•17206 


2744 


2749 


2758 


2765 


2769t 


DENCU 


017472 


2825 


2832 


28361 






0EN012 


017766 


2891 


2900 


29041 






DENOU 


020274 


2960 


3967 


2972 


3976« 




DEKDH 


•20622 


3031 


3040 


3047 


3B51t 




DEND2 


014736 


2324 


2333 


23371 






DENDJ 


015222 


2393 


2400 


2404« 






DFND4 


015516 


3460 


2469 


24731 






DEND5 


•16024 


3529 


2536 


2541 


2545» 




DEND6 


•16352 


2601 


3610 


2617 


26211 




DEN07 


•16660 


2677 


26"4 


2689 


2693" 




OERRI 


•14342 


2339 


2243» 








DeRR10 


•17044 


3731 


3735I 








DERRU 


•17372 


2807 


2eii« 








DERR12 


•17656 


2873 


JB77« 








DERRU 


•20152 


2942 


2946a 








DFRR14 


•20460 


3013 


30171 








DERR2 


•14626 


2306 


23101 








DFRRS 


015122 


2375 


23791 








DEBR4 


015406 


3443 


34461 








DFRR5 


•15702 


2511 


3515i 








0EPP6 


•16210 


2583 


35871 








DERP7 


016536 


2659 


26631 








DHA 


•33204 


298 


302 


306 


354 


358 362 


DHB 


03322^ 


316 


324 


332 


340 


417 51221 


DHC 


033256 


320 


328 


336 


344 


421 51271 


DHD 


•33354 


349 


51381 








DHE 


•3343! 


375 


379 


383 


3"7 


391 395 


DISPLA 


•01146 


2381 


54B» 


556« 


4552« 


45e2» 


dispre: 


•00174 


1691 


556 








DIVC0 


•02564 


479» 


3379 


4263« 






DIVCl 


•02566 


4B0I 


3379 


4291« 






DIVC2 


•02570 


4811 


3379 


4376> 






DIVCJ 


•02572 


4821 


3379 


4378* 


4399* 




DIVC4 


•02574 


4831 


3379 


4381« 


4403« 




DIVC5 


•02576 


4841 


3379 


4367* 






DIVC6 


•026ee 


48SI 


3379 


4370« 






DRETI 


•14316 


3310 


33361 









370 408 413 5130* 



403 51461 



FPU »DD/SUB/MUI,/Diy RUNDOM EXER MACYll 27(lBe6) e4-HAY-77 19:18 P*GE 115 

m-fil-n ni3B cross BEFEREKCt TABLE — USER SYMBOLS 



DOEPDB. 


pii a 


DRETia 


en»l» 


DRETIl 


817346 


DRET12 


017632 


DBET13 


«2012b 


0RETI4 


a2fl434 


DRETJ 


914602 


DRET3 


»15»76 


0RET4 


B15362 


DRET5 


115656 


DRET6 


•16164 


DRET7 


(16512 


DSHR ' 


17757D 


OTA 


«33474 


DTB 


ff335»2 


DTD 


e335l4 


DTE 


033526 


DTF 


033550 


DTSTI 


014400 


DIST10 


017102 


DTSTI 1 


017430 


DT5II2 


017714 


DTSTI 3 


•70210 


DTST14 


•20516 


DT5T2 


014664 


DTST3 


•15160 


DTST4 


•15444 


DTSI5 


•15740 


DTST6 


•16246 


0TST7 


•16574 


EENDI 


021200 


EEIID2 


•21662 


EERRl 


02II72 


EEBP2 


021654 


EMA 


032103 


EMB 


032140 


EMC 


032175 


END 


032235 


EHE 


032275 


EMF 


032325 


EMC 


032355 


EMH 


033405 


ENI 


•32435 


EMJ 


032524 


EMK 


032545 


EKL 


032566 


EMH 


032607 


EMK 


•32630 


EMO 


032651 


EMP 


032672 


EMQ 


0327U 


EMR 


•32734 


EMS 


•32761 


EMT 


333006 


ENTVEC 


s 000030 


EMU 


033039 


EMV 


»33060 



2702 


27281 
















2778 


2804* 
















2844 


28701 
















2913 


79391 
















2984 


3010« 
















2277 


2303» 
















2346 


3373» 
















2413 


2439f 
















2482 


2508« 
















2554 


25901 
















2630 


36564 
















46i 


237 


547 














398 


302 


306 


354 


358 


362 


366 


370 


408 


375 


379 


383 


397 


391 


395 


399 


403 


51574 


316 


324 


332 


340 


417 


51594 








320 


329 


336 


344 


421 


51614 








349 


51651 
















2244 


3252 


22554 














2736 


2747« 
















2812 


3820 


28234 














287B 


2BB6 


28891 














2947 


2955 


29581 














3018 


3026 


30294 














2311 


2319 


23221 














2380 


2388 


23911 














2447 


2455 


24581 














2516 


2524 


25274 














2588 


2596 


25991 














2664 


2672 


26754 














3112 


3130 


31351 














3202 


3235 


32404 














3127 


31321 
















3238 


3230 


3232 


32374 












408 


50094 
















412 


50141 
















417 


50191 
















421 


50251 
















316 


320 


50314 














324 


328 


50361 














332 


336 


50414 














340 


344 


50464 














349 


50514 
















298 


50614 
















302 


S064« 
















306 


50671 
















354 


5070« 
















358 


5073« 
















362 


50761 
















366 


50791 
















370 


50921 
















375 


50B5t 
















379 


50994 
















383 


50934 
















1351 


531« 


5324 














387 


50971 
















391 


5101i 
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EHV00I 


•01233 


298« 


























EMV002 


•01256 


3031 


























EMV003 


001302 


3061 


























EMV004 


•01336 


3111 


























EMV005 


•01352 


3161 


























EHV006 


•01376 


3201 


























EHVB07 


•01433 


3344 


























EMV010 


■01446 


3284 


























EMV011 


•01472 


3324 


























EMV012 


•01516 


3364 


























EMV013 


001542 


3404 


























EMV814 


001566 


3441 


























EMV015 


001612 


3491 


























EMV016 


•01636 


3541 


























EMV017 


001662 


3581 


























EMV020 


001706 


3624 


























EMV021 


001733 


3661 


























EMV032 


001756 


3704 


























EMV023 


•02002 


3754 


























EMV024 


002036 


3794 


























EMV025 


•03052 


3834 


























EMV026 


•03076 


3874 


























EMV027 


•03132 


39K 


























EHV030 


B02H6 


3951 


























EHV031 


003 1 7 2 


3994 


























EMV032 


l»B2216 


4031 


























EMV033 


003342 


4081 


























EMVe34 


003366 


4121 


























EMVe35 


003313 


4171 


























EMV036 


00233b 


4211 


























EMd 


033105 


395 


51054 
























EMX 


033132 


399 


51091 
























EMY 


033157 


403 


51134 
























EREG0 


002603 


4884 


457l» 
























EREGl 


•03604 


4894 


4572« 
























EREG2 


•02606 


4904 


4573« 
























EPEG3 


•02610 


4914 


4574« 
























EREG4 


002613 


4921 


4575* 
























EREG5 


003614 


4931 


4576» 
























EREG6 


003616 


4941 


45774 


45784 






















EBEG7 


•02630 


4954 


4579» 
























ERPVEC 000004 


1284 


545 


546« 


557» 


4513 


4514* 


4516* 


45194 












ETSTl 


•21076 


3106 


31104 
























ETST2 
EXPFEA 


■21464 

■02376 


3196 
4364 


32004 
659> 


725» 


794» 


849* 


906* 


979« 


1056* 


1116» 


U774 


12444 


13134 


1368* 






14254 


t497» 


1573» 


1633* 


1694> 


17614 


1830* 


1885« 


1941. 


2013» 


3089» 


3149* 


3310* 






2277« 


23464 


24tJ» 


3483> 


2554» 


36304 


2702» 


2778* 


2B44» 


29134 


29B4« 


3827 


3847 






3905 


4086 


4097 


413B 


4279 


4373 


4384 


4405 












FEA 


003366 


4334 


665* 


700 


731» 


766 


800* 


855» 


912" 


947 


9854 


1020 


1062» 


1133* 




1183* 


1218 


1250* 


1385 


1319* 


13744 


1431» 


1466 


15B34 


153B 


15794 


1639« 


17004 






1735 


1767» 


1803 


1836* 


ie9i> 


19474 


1982 


2019» 


2054 


2e95» 


2155* 


32164 


3251 






23834 


2318 


23534 


3387 


2419» 


2454 


24BB» 


2523 


2560« 


2595 


2636* 


2671 


3708* 






2743 


2794» 


2819 


3850« 


3885 


3919* 


2954 


2990" 


3035 


3063» 


315t» 


5157 


5165 


FEC 


002364 


4311 


664> 


694> 


696 


730» 


760* 


762 


7994 


8544 


911* 


941» 


943 


984* 




1014* 


1016 


1061« 


1121» 


1182. 


13134 


1214 


13494 


1379« 


1281 


131B» 


1373* 


1430* 






1460* 


1462 


15»2» 


15324 


1534 


15784 


163B4 


16994 


1739* 


1731 


1766> 


1796* 


1798 
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in 










SEQ 0117 




DOFPDB. 


PI I a4-«n 


•77 17130 




CROSS REFERENCE 


TABLE " 


USER SYMBOLS 


















IB35» 


1890« 


1946* 


1976" 


1978 


2018* 


2048* 


3050 


2094« 


2154* 


2215» 


2245* 


2247 






23S2> 


2312« 


2314 


3351« 


3381» 


2383 


2418* 


3448» 


3450 


3487« 


3517* 


2519 


2559« 






35e9> 


2591 


2635* 


2665» 


3667 


2707* 


2737« 


3739 


2783" 


3ei3» 


3815 


2849« 


2879« 






2881 


2918* 


2948* 


2950 


2989« 


3019* 


3021 


3062» 


3150* 


34770 


5157 


5165 




TTPin 


e232S6 


966 


3474< 
























FPPOPC 


»«l237e 


4331 


3474< 


3487 


5165 




















FPPOPS 


>«2]72 


4341 


3475» 


3486 


5165 




















FPP05P 


ae237« 


436< 


























FPPVEC" 


>e0244 


1501 


566* 


567» 






















FP5 


042362 


4301 


663» 


686» 


687 


717» 


729* 


752« 


753 


785« 


798« 


831« 


822 


840« 






853* 


B76» 


877 


897» 


9I0> 


933* 


934 


969« 


983* 


1006« 


1007 


1046« 


1060* 






1083* 


1084 


1107» 


1120» 


1143» 


1144 


1171* 


1181* 


1204* 


1305 


1235. 


1248« 


1271« 






1272 


1304> 


1317» 


1340« 


1341 


1359* 


1372* 


1395« 


1396 


1416* 


1429« 


1452* 


1453 






i4ee« 


15ai» 


1534* 


1535 


1564» 


1577* 


1600* 


1601 


1624« 


1637* 


1660* 


1661 


1688* 






1698* 


1721» 


1722 


1753* 


1765» 


1788» 


17S9 


1B21» 


1834* 


1857* 


1858 


1876» 


1889* 






19ia» 


1913 


1933» 


1945" 


1968« 


1969 


2004* 


2017* 


2040* 


2041 


208e« 


2093* 


2116* 






2117 


2140» 


2153» 


2176» 


2177 


2304* 


2214« 


2237* 


2338 


2268* 


2381* 


2304* 


2305 






2337« 


23SB» 


2373« 


2374 


24»4» 


2417» 


2440* 


2441 


2473* 


2486* 


2509» 


2510 


2545» 






2558* 


35810 


2583 


2621» 


2634" 


2657* 


2658 


2693* 


2706* 


2729« 


3730 


2769* 


2782* 






3805* 


3806 


2836* 


284B« 


2871» 


2872 


2904« 


2917» 


2940* 


2941 


2976» 


3988* 


3011* 






3012 


3091< 


3061* 


3104* 


3105 


313S» 


3149» 


3194* 


3195 


3240* 


3476* 


3478 


3481 






5156 


5165 
























GHS < 


»»•»•• u 


168 


4948 


4949 


4950 


4951 


















HID 


*3 36e6 


320 


328 


336 


344 


5l73t 


















HIF 


e93632 


316 


324 


333 


340 


5177t 


















HINUM 


•024 36 


446» 


667 


670 


677 


733 


7 36 


743 


802 


805 


812 


857 


860 


867 






914 


917 


934 


987 


990 


997 


1064 


1067 


1074 


1124 


1137 


1134 


1185 






1188 


1195 , 


1252 


1255 


1262 


1321 


1334 


1331 


1376 


1379 


1386 


1433 


1436 






1443 


1505 


1508 


1515 


1581 


1584 


1591 


1641 


1644 


1651 


1703 


1705 


1712 






1769 


1772 


1779 


1838 


1841 


1848 


1893 


1896 


1903 


1949 


1952 


1959 


2021 






2024 


2031 


2097 


2100 


2107 


2157 


2160 


3167 


3318 


2221 


3338 


2285 


3288 






2295 


2354 


2357 


2364 


3421 


2424 


2431 


3490 


2493 


2500 


2563 


2565 


2572 






2638 


2641 


3648 


2710 


3713 


2720 


3786 


3789 


2796 


2852 


2855 


2862 


2921 






2924 


2931 


2992 


2995 


3002 


5173 


5177 














HOIWP" 


•3»414 


651» 


653« 


46431 






















HI • 


Meeii 


38i 


4743 


4783 






















lOIVEC" 


•80020 


1331 


529» 


530« 






















LF • 


•00012 


391 


498 


503 


511 


4777 


4783 
















LOO 


•3J572 


320 


328 


336 


344 


517H 


















LOF 


033622 


316 


324 


332 


340 


5n5« 


















LONUN 


•02426 


4441 


667 


669 


676 


733 


735 


743 


802 


804 


811 


857 


859 


866 






914 


916 


933 


987 


989 


996 


1064 


1066 


1073 


1124 


1126 


1133 


1185 






1187 


1194 


1353 


1254 


1361 


1321 


1333 


1330 


1376 


1378 


1385 


1433 


1435 






1442 


1505 


1507 


1514 


1581 


1583 


1590 


1641 


1643 


1650 


1702 


1704 


1711 






1769 


1771 


1778 


1838 


18 40 


1847 


1893 


1895 


1902 


1949 


1951 


1958 


2021 






2033 


3030 


3097 


7099 


2106 


2157 


2159 


2166 


2218 


2220 


3327 


2285 


2287 






2294 


2354 


3356 


2363 


2421 


2423 


2430 


2490 


2492 


2499 


2562 


2564 


3571 






2638 


3640 


3647 


2710 


2712 


2719 


3786 


2788 


2795 


2852 


2854 


2861 


3921 






2923 


2930 


2992 


2994 


3001 


5171 


5175 














HED • 


•76600 


1421 


580 


632 


636 


646 


3259 


3267 


3273 


4980 










MENDl 


•11603 


1741 


1748 


17521 






















HENCIO 


•141S6 


3184 


3193 


3200 


22041 




















MEND3 


•12076 


1808 


1817 


182K 






















HEND3 


•12324 


1865 


1873 


18761 






















NEND4 


•13562 


1920 


1939 


19331 






















HENOS 


•13070 


1988 


1995 


2000 


2004* 
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MEND6 


013416 


2060 


2069 


2076 


20801 


HEND7 


•13666 


2124 


2131 


2136 


31401 


HERRI 


C11502 


1723 


1727« 






MERR2 


•11766 


1790 


17941 






MERR5 


•12746 


1970 


19741 






HERR6 


013254 


2042 


30464 






MRETl 


•11456 


1694 


17301 






MREIia 


•14026 


2149 


21751 






HRET2 


011742 


1761 


17871 






HRET3 


•12236 


1830 


18561 






HREI4 


•12464 


1885 


191K 






MRET5 


•12722 


1941 


19671 






MRET6 


•13230 


2013 


20391 






MRET7 


013556 


2089 


31151 






MTSTl 


•11540 


1728 


1736 


17394 




MTST10 


•14052 


2178 


31821 






MTST2 


•13024 


1795 


1803 


18061 




MT5T3 


•13262 


1859 


I863« 






MTST4 


ei2510 


1914 


1918« 






MT5T5 


•13004 


1975 


1983 


19861 




MIST6 


013312 


2047 


3055 


20581 




MTST7 


•13602 


2118 


3133I 






MULC0 


•02550 


4721 


3376 


4004« 




MULCl 


00255 2 


4731 


3376 


4035« 




MULC2 


•03554 


4741 


3376 


409K 


4122* 


MULC3 


•03556 


4751 


3376 


4094* 


4125* 


MULC4 


•02560 


4761 


3376 


4080* 




MULC5 


•B2562 


4771 


3376 


4083* 




NEWPAS 


•03450 


584 


596 


61H 


3329 


NHPASl 


•02723 


5111 


618 






DPI 


•02446 


4481 


306t 


3075 


3096 


OPID 


•33722 


421 


519H 






OPIF 


C33642 


417 


51794 






0P2 


•02456 


4501 


3068 


3076 


3097 


0P3D 


•33736 


421 


51934 






0P2F 


B33652 


417 


518H 






0P3 


002466 


4524 


3070 


3078 


3100 


0P3D 


•33752 


421 


5195J 






0P3F 


033662 


417 


5ie3« 






0P4 


•02476 


454« 


3066 


3079 


3098 


0P40 


•33766 


431 


51971 






0P4F 


•33672 


417 


51851 






OPS 


•03506 


4561 


3068 


3084 


3102 


0P5D 


•34002 


431 


5199< 






0P5F 


■33702 


417 


5187« 






0P6 


•02516 


4581 


3070 


3071 


3080 


0P6D 


•34016 


421 


S201I 






0P6F 


•33712 


417 


5189(1 






PIRO 


■ 177772 


45t 








PIROVE 


> »00240 


1391 








PR0 


s 000000 


62t 








PRl 


> 000040 


631 








PR 3 


s •00100 


64t 








PR 3 


s 000 140 


651 








PR4 


« •00200 


661 








PBS 


s 000240 


671 









3170 



3159 



5179 5191 

5181 5193 

5183 5195 

5185 5197 

3188 5187 

3173 3191 



5199 

5189 5201 
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PB6 


X 


tiieiee 


681 


















PR7 


3 


000340 


691 


















PS 


s 


177776 


421 


43 
















PSH 


s 


177776 


43) 


















PWRVECi 


000024 


1341 


535* 


536» 


495e» 


4959> 


4968« 


4974» 


4988* 


4989« 


RAND 




023350 


3500 


35031 
















RANDl.2 


023342 


666 


801 


913 


1063 


1184 


1320 


1432 


1580 


1701 








2353 


2489 


2637 


2785 


2920 


3065 


3067 


3069 


35014 


RAN0L4 


023332 


732 


856 


986 


1123 


1251 


1375 


1504 


1640 


1768 








2420 


2561 


2709 


2851 


2991 


3153 


3155 


3157 


34981 


RESVEC» 


000010 


129t 


















RFLAG 


■ 


000144 


1461 


636 


3267 














RUHAHI« 


000022 


1441 


580 


632 


3259 












SCRLf 




022314 


3367 


33851 
















SHDP1 




022317 


3344 


33864 
















SHDR2 




022664 


3348 


34271 
















SHDP3 




023059 


3352 


3448* 
















SHT 




022312 


3365 


33844 
















STACK 


■ 


031100 


33» 


527 


611 


630 












START 




003000 


172 


520> 


4993 














STATS 




022122 


3319 


33401 
















STKIMT» 


177774 


441 


















SUBPAS 


003516 


614 


616 


6304 


3277 


3299 










SVECl 




022230 


3342 


33724 
















SVEC2 




022254 


3346 


33764 
















SVEC} 




022272 


3350 


33791 
















SHR 




001144 


2371 


525 


547« 


549 


555* 


562* 


613 


638 


641 








4522 


4530 


4537 


4583 


4590 


4602 


4605 


4966 


4981* 


SHREG 




000176 


1704 


555 
















SN0 




000001 


971 


















SHee 




090001 


871 


97 


641 














swei 




000002 


861 


96 


638 


3263 












SHB7 




000004 


851 


95 
















s«e3 




000010 


84i 


94 
















SH04 




000020 


83< 


93 
















SH«5 




800040 


821 


92 
















SH06 




000100 


811 


91 
















SNe7 




•00200 


e0« 


90 
















sues 




00040<1 


79» 


89 
















SV»9 




•01000 


781 


88 
















SNI 




•00002 


96t 


















SHie 




•02000 


771 


3313 
















SHll 




004000 


761 


















SUl? 




•1000X 


754 


3317 
















sm3 




•20000 


74« 


















SHI 4 




040000 


734 


















SH15 




100000 


721 


















SH2 




000004 


9SI 


















SU3 




•00010 


941 


















SN4 




000020 


931 


















SH5 




000040 


921 


















SH6 




•«010«l 


911 


















SH7 




000200 


901 


















SU8 




000400 


891 


















SH9 




001000 


881 


















TBITVE« 


•00014 


1301 



















2217 
2284 



3317 
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1371 

1381 

1361 533* 534> 

1311 

6581 
11151 
11764 
12434 
13121 
13674 
14244 
14964 
15724 

7244 
16324 
16934 
17604 
18294 
18844 
19404 
20124 
20881 

7934 
21484 
22991 
22761 
23451 
24124 
24811 
25534 
26291 

8484 
27014 
27774 
28434 
29124 
29831 
30551 
3143) 

9054 

978) 
1055) 

575 583 585 618 623 3315 3344 
4642 4663 4665 4666 4669 4671 4674 
49484 4990 

4651 4673 4676 4681 49494 
49511 

621 3360 4950) 

1474 646 3273 
5173 5177 5208) 
5171 5175 5206) 
5179 5191 5210) 
5181 5193 5211) 
5183 5195 52124 
5185 5197 52134 
5187 5199 5215) 



TKVEC • 


000060 


TPVEC » 


000064 


TRAPVt« 


000034 


TRTVEC« 


•00014 


TSTI 


•43622 


TST10 


006172 


TSTtI 


•06462 


TSI12 


•06746 


TSI13 


•07242 


TSTI 4 


•07470 


TST15 


007726 


ISI16 


•10234 


TST17 


•10562 


TSI2 


•04106 


TST20 


•11032 


TST21 


011322 


TST22 


•11606 


TST23 


•12102 


ISI24 


•12330 


TST2S 


•12566 


TST26 


013074 


TST27 


013422 


TST3 


•04402 


TST3B 


•13672 


TST31 


•14162 


IST32 


•14446 


TST33 


el4742 


T5T34 


915226 


TST35 


015522 


TST36 


•16030 


TST37 


016356 


1ST 4 


•04630 


TST40 


•16664 


TST4I 


•17212 


TST42 


•17476 


TST43 


•17772 


TST44 


■20300 


TST45 


020626 


T5T46 


•21204 


TST5 


•05066 


TST6 


•05374 


TSI7 


005722 


TYPE • 


104401 


TYPOC » 


104402 


lYPOH » 


104404 


TYPOS » 


104403 


WFLAG > 


: 000344 


XHI 


•34042 


XLO 


•34032 


XOPI 


•34052 


X0P2 


•34060 


X0P3 


•34066 


X0P4 


•34874 


XOPS 


•34110 



3348 
4677 



3352 

4684 



3365 
46S6 



3367 
4691 



4585 
4747 



4593 

4900 
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DOFPDB.I 


pii a 


X0F6 


»34l«2 


SADt) 


»?3^66 


$APTHD 


gsioe^ 


SA5TAT« 


«»«•«• 


$AHC 


1131160 


SATHl 


»aii34 


SATi3 


B31142 


SATV4 


831152 


SAUTOB 


eeii4>t 


SBDADP 


B»1126 


iBDOAT 


001132 


$8Et,L 


eaii72 


SCHAKC 


»3113() 


SCKSKR: 


li»»»>» 


tCHTSG 


nail 014 


»CM3 • 


B0I9000 


>CONV 


»27622 


scpuop 


»01230 


• CRLF 


»01177 


SDEVCT 


001212 


SDIV 


»2t>364 


(DOAQH 


022116 


SENDAD 


022106 


SENOCT 


022042 


• ENV 


001222 


«ENVM 


001223 


SEOP 


021764 


»EOPCT 


022034 


•EBFLG 


001104 


lERMAX 


001120 


•EBBOB 


0301S0 


SEBBPC 


001122 


<ERBTB 


001232 


«EBTTL 


001114 


tESCAP 


001170 


JETABL 


031222 


8ETEND 


001232 


(FATAL 


001204 


SFEA 


002404 



tFFLG 031400 

tFIlIC 001164 

SFILIS 001163 

SFPS 002400 



5189 
671 


5201 
737 


52141 
906 


861 


918 


991 


1068 


1129 


3092 


3167 


367U 






194 


200» 
























4917 


4832 
























47S9 


47901 
























47861 


























4732 


4787« 
























4598 


47891 
























233i 


























2281 


























230« 


























2501 


3315 


4585 


4617 




















4749« 


4759. 


4766 


4775* 


47804 


















4954 


























215» 


522 


523 


531 


537 


539 


539 














24S> 


























3675 


4008 


4267 


4493» 




















273» 
2521 


623 


4593 


4617 


4643 


4665 


4671 


4686 


4749 


4783 








264t 
2222 


22"9 


2358 


2425 


2494 


2566 


2642 


2714 


2790 


2856 


2925 


2996 


3091 


3169 


3174 


42631 






















3308 


3322 


33294 






















180 


33244 


4612 






















537 


615 


33104 






















269t 


4595 


4727 


4795 


4819 


















2701 


560 


4729 


4734 


4797 


















3261 


3264 


3276 


329H 




















537" 


615 


33074 


3311 




















2191 


3246« 


3292« 


4526 


4528 


4534* 


4556 


4580* 


4617 










2251 


540» 


4528 


4551* 


4556 


















531 


45701 
























2261 


4587« 


4589« 


4589 


4617 


4650 


4699 














28411 


4660 
























2231 


4586» 


4617 






















2491 


539« 


4550» 


4608 


4610 


4617 
















268i 


























2B6 


2«0» 
























261» 
439» 

118B4 
1735 
2280» 
2743 


4823» 
662« 
1218 
1764. 
2318 


700 
1247* 
1802 
2349* 


728* 
1285 
1833* 
2387 


766 
1316* 
1888* 
2416* 


797* 
1371* 
1944* 
2454 


952* 
1428* 
1982 
2485* 


909* 
1466 
2016* 
2523 


947 
1500* 
2054 
2557* 


982* 
1538 
2092* 
2595 


1020 
1576* 
2152* 
2633* 


1059* 
1636* 
2213* 
2671 


1119* 
1697* 
2251 

2705* 


278l» 


2819 


2847* 


2885 


2916* 


2954 


2987* 


3025 


3060* 


3148* 


3927* 


3947* 


3905» 
4381 

1179* 
1731 
2279. 
2739 


4086* 
661» 
1214 
1763» 
2314 
37B0« 


4097* 

696 
1246* 
1798 
2348* 
2815 


4128* 
727* 
1281 
1832* 
2383 
2846* 


4279* 

762 
1315* 
1887. 
2415* 
2891 


4373* 
796* 
1370* 
1943* 
2450 
2915* 


4394* 
951* 
1427* 
1979 
2484* 
2950 


4405* 
909* 
1462 
2015* 
2519 
2986* 


5157 
943 
1499* 
2050 
2556* 
3021 


5165 

981* 
1534 
2091* 
2591 
3059* 


1016 

1575* 

2151* 

2632* 

3147* 


1058* 

1635* 

2212* 

2667 

3826* 


1118* 

1696* 

2247 

2704* 

3846* 


3904« 


4e95» 


4096* 


4127* 


4278* 


4372* 


4383* 


4404* 


5157 


5165 








4786« 


4789* 


4817 


4826* 


49344 


















246< 


4752 


4783 






















2451 
437» 

864 


4783 
660. 
977 


674 
907* 


687 
921 


692 
934 


726* 
939 


740 
990* 


753 
994 


758 
1007 


795* 
1012 


809 
1057* 


822 
1071 


858* 
1084 
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SGOALP 


e}U2« 


SGDDAT 


001130 


SGET42 


022076 


(GTShCs 




$H0 : 


000d0«) 


SHIBTS 


00100^ 


SICNT 


03110^ 


SILIUP 


132050 


SINTAG 


001141 


SITFMB 


001116 


SLF 


001200 


SLFLG 


031177 


SLPAOP 


091 11 J 



slpe.hr 


001112 


8LPTST 


001150 


SHAIL 


001202 


SHBADK 


001002 


SUFLG 


H31376 


SHSGAO 


001216 


$MSGLG 


001220 


SHSGTY 


001202 


SMUL 


'?25244 


SKXCNT 


030146 


SNULL 


001162 


SNJTST- 


000001 


$0CN7 


•431624 


SOMOPfc 


031626 


SOVER 


030132 


SPAS5 


001210 


5PASTM 


001006 


SPOLSH 


023506 



SPOPX 023540 



SPOHER 032056 
(PUSH 023510 



H EXEP 


MACY11 


27(1006) 


04-WAl- 


.77 18:' 


IB PAGE 


122 










SEQ 0122 




7130 




CROSS REtERENCE 


TABLE - 


- USER SYMBOLS 














1117* 

1341 

1588 


IKl 
1369. 


1144 
1383 


1178* 
1396 


1192 
1426* 


1205 
1440 


1210 
1453 


1245. 

1458 


1259 

1498. 


1272 
1512 


1277 
1525 


I3l4* 

1530 


1328 

1574* 


1601 


1634. 


1648 


1661 


1695* 


1709 


1722 


1727 


1762* 


1776 


1789 


1794 


1831* 


1845 


1858 


1886* 


1900 


1913 


1942* 


1956 


1969 


1974 


2014* 


2028 


2041 


2046 


2090* 


2104 


2117 


2150. 


2164 


2177 


2211. 


2225 


2238 


2243 


2278* 


2292 


2305 


2310 


2347* 


2361 


2374 


2379 


2414* 


2428 


2441 


2446 


2493* 


2497 


2510 


2515 


2555. 


2569 


2582 


2587 


3631* 


2645 


2658 


2663 


2703* 


2717 


2730 


2735 


2779. 


2793 


2806 


2811 


2845. 


2859 


2872 


2977 


2914* 


2928 


2941 


2946 


2985* 


29'?9 


3012 


3017 


3058* 


1090 


3105 


3146* 


3180 


3195 


3591 


3605 


3672* 


3673 


3820. 


3822 


3825* 


3840* 


3842 


3845* 


3863* 


3866. 


3874 


3899 


3903* 


4005* 


4006 


4081 


4084. 


4090* 


4092 


4095* 


4121* 


4123 


4126. 


4141* 


4144* 


4152 


4264* 


4265 


4277* 


4368 


4371* 


4377* 


4379 


4382* 


4398. 


4400 


4403* 


4415* 


4418. 


4426 


5156 


5165 


























2271 


























2294 


























3318 


33211 
























4953 
12 


























20H 


























2204 


4541. 


4542 


4544. 


1555 


















4958 


4974 


49951 






















2J4I 


























2244 


4599. 


4597 


4617 


4647 


















2534 


4617 


4783 






















4827. 
221" 


49334 

541* 


680* 


716. 


815* 


870* 


927. 


1000. 


1077. 


1137* 


1198. 


1265* 


1334* 


1389. 
2231. 


1446* 


1519. 


1594. 


1654* 


1715* 


1782* 


1851. 


1906* 


1962* 


2034* 


2110* 


2170* 


2299* 


2367* 


7434. 


2503* 


2575* 


2651* 


2723* 


2799* 


2865* 


2934* 


3005* 


3091* 


3181. 


4532* 


4548* 


4553 


4555 


















222» 


542. 


4532 


4549. 


1555 


4607 
















2394 


4524 
























202 


206 


2594 


559 


4547 


4595 


4727 














202« 


























4787. 


4793 


4828* 


4832* 




















2664 


4803* 


4806 






















267» 


4808. 
























26011 


4801 


4809* 


4821 


4825* 


















1706 


1773 


1842 


1897 


1953 


7025 


2101 


2161 


3083 


1085 


3175 


4004" 




4545 


45554 
























2444 
655t 


4754 

721« 


4793 
7904 


8454 


9024 


9754 


1052« 


11124 


11734 


12404 


1309" 


1364" 


1431" 


14934 


tS69« 


16294 


16904 


17574 


18264 


18814 


19374 


20094 


20854 


2145" 


2206" 


2273" 


23424 


24094 


24784 


25504 


26264 


7699J 


2774* 


29404 


29094 


29804 


3052* 


31404 




4872. 


4901* 


49144 






















4867* 


4871. 


4876 


4879* 


4990* 


49164 
















4509 


4525 


4533 


4543 


45524 


















2634 


559. 


619 


3304* 


3305* 


4539 


4556 














2041 

668 


734 


803 


858 


915 


988 


1065 


1125 


1186 


1253 


1322 


1377 


1434 


1506 


1582 


1642 


1703 


1770 


1839 


1994 


1950 


2022 


2098 


2158 


2219 


2286 


2355 


2422 


2491 


2563 


2639 


271 1 


2787 


2853 


2922 


2993 


3074 


3164 


3585" 


672 


738 


807 


862 


919 


992 


1069 


1129 


1190 


1257 


1326 


1381 


] 438 


1510 


1586 


1646 


1707 


1774 


1843 


1898 


1954 


2026 


2102 


2162 


2223 


2290 


2359 


2426 


2495 


2567 


2643 


2715 


2791 


2857 


2926 


2997 


3086 


3176 


3602" 


4991 
669 


4999* 
670 


735 


716 


804 


805 


959 


860 


916 


917 


989 


990 


1066 
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DQFPDB.P11 



(PHPtD «32(I44 
$PHPDN e3167b 
IPHRHG >32«>4e 
tPWRUP 031750 
tOUES »all76 
(RDCHPi »••••• U 

»RDDtC> •••••• U 

SRDLtNs »••*»» U 
tRDOCT« ••«»•• U 
SRJ» « »•••»• U 
tSAVREs •••••» U 

ISAVR6 *32il54 
$SCOPL M7()7J 
(SETUPS •0ae37 

•5TUP ■ 177777 
tSUB n23S62 
ISVLAD »3e«76 

• svpc s i»ee2e4 

tSHR s 16740(1 



(SWPEG 001224 

tSMRHKa 00(1000 

ITEST*! 001206 

•TIMES 001166 

ITKB 001154 

$TIIS »<(1152 

•TN • 000047 



I PAGE 123 
USER SYMBOLS 



SEQ 0123 



»TPB 


001160 


•TPElG 


001165 


STPS 


001156 


• TRAP 


031630 


•TRAP2 


031652 


JTRP » 


000005 


ITRPAD 


031664 


• TSTM 


001004 


•TSTNM 


001102 


«TYPBN« 


««••■• U 


»TIPDS» 


«•*••• II 


• TYPE 


030652 


•TYPEC 


031064 



1067 
1507 
1S96 
2356 
27B9 
3165 
49931 

535 
49911 
4969 

2511 
4954 
4954 
4954 
4954 
4954 
4954 
4967» 
529 
5141 
4612 

514t 
1189 
4S17 
1781 
1» 
906 
1761 
2630 
4508 
4562 

27H 
4502 
2621 
2481 
241< 
2404 
1< 
9791 
1421 
18301 
2273 
2702* 
243t 
2471 
242II 
533 
49361 
49401 
4930 
2031 
2181 
4952 
4952 
47211 
4751 



1126 
1508 
1951 
2357 
2854 
3166 



1127 
1583 
1952 
2423 
2855 
3168 



1187 
1584 
2023 
2424 
2923 
3170 



49581 4988 



49741 
4617 



4975 

45061 
528 



1256 
4546i 

183 
12 

979 
1830 
2702 
4520 
4563 

562 
4524 
4547« 

538« 



12 
1052 
14251 

1881 

2277t 

2774 

4772» 

4721 

4770 

49251 

4947 

4949I 

4947f 



4976* 
529 



248 
1056 
1885 
2778 
4522 
4564 



4697 
3245» 



655 
10561 
1493 
1BS5I 
2342 
27781 
4793 
4783 
4793 



1188 
1643 
2024 
2492 
2924 
3171 



4977« 
531 



249 
II 16 
1941 
2844 
4523 
4565 



3247" 3293« 



6591 
1112 
1497» 
1937 
2346« 
2940 



1254 
1644 
2099 
2493 
2994 
3173 



49974 
533 

1437 



250 
1177 
2013 
2913 
4526 
4566 



721 
11164 
1569 
19411 
2409 
28441 



1255 
1704 
2100 
2564 
2995 
359»» 



4814 
4758 



4940 

4765 



4951» 4952« 
4524 4546» 



4948 

47704 4771 



538 
1244 
2089 
2984 
4527 
4583 



3294* 4535» 4542 



7251 
1173 
15734 
2009 
24131 
2909 



1323 

1705 
2159 
2565 
3075 



539 
1313 
2149 
3056 
4528 
4590 



790 
11774 
1629 
2013» 
2478 
2913« 



1324 
1771 
2160 
2640 
3076 



541 
1368 
2210 
3144 
4535 
4602 



7944 
1240 
1633> 

2085 

24824 

2980 



1379 
1772 
2220 
2641 
3078 



542 
1425 

2277 
4499 
4536 
4605 



845 
12441 
1690 
2099« 
2550 
29941 



1379 
1940 
2221 
2712 

3079 



659 

1497 
2346 
4499 
4537 
4617 



8491 
1309 
16941 
2145 
25544 
3052 



1435 
1841 
2287 
2713 
3080 



1436 
1995 
2288 
2788 
3084 



725 
1573 
2413 
4500 
4549 
4994 



902 
13131 
1757 
2149« 
2626 
30561 



4571 



794 
1633 
2482 
4501 
4552 



9064 
1364 
17614 
2206 
26301 
3140 



849 
1694 
2554 
4502 
4555 



975 
13684 
1826 
22101 
2698 
31441 



ss?pS^!r'""^i^i:v:;7T:?r"'"'''J^i:rjEE^^E:?r;iBLr:i'us^rLi^jLs 



JTYPEP 030412 
(TIPtX 031132 



•TYPOC 

$TYPON 

$TYPOS 

• UNIT 

$UNtTM 

SUSHR 



031126 
031442 
031402 

001214 
001010 
001226 



SXTSTR 027702 
$0FILL 031625 
»40CAT» »•••»• U 
> I34I16 



.CASTAS ••»••• 
.»X = 801000 



4592 
4776 
48701 
4869 
48654 
2651 
2051 
2721 
45111 
4866> 
4508 
1641 
5151 
1265 
2110 
3005 
4787 
1901 



46411 

4778 

4949 

48724 

4950 



4870» 

4592 

168i 

526 

1334 

2170 

3091 

4790 

195 



4880 

178 
541 
1389 
2231 
3181 



49154 

17911 

542 

1446 

2298 

34714 



1811 
680 
1518 
2367 

4555 



183" 

746 

1594 

2434 

4556 



1844 

815 

1654 

2503 

4617 



190 

870 

1715 

7575 

47034 



19H 

927 

1782 

2651 

4783 



193« 
1000 
1851 
2723 
48354 



1954 
1077 
1906 
2799 
4970 



2144 
1137 
1962 
3865 
4996 



254 
1198 
2034 

2934 
51551 
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CMPFLT 

COMMEN 

COHMaa 

COMMei 

COHKB? 

COKH03 

C0HHB4 

C0KMB5 

COMMaS 

C0MMe7 

COHMl 

COMMie 

conmi 
conm2 

C0MMI3 

C0MM14 

C0MM15 

COMMlt 

C0MH17 

C0MH2 

C0HH2e 

C0MM21 

COMM22 

COMMJJ 

C0MM24 

C0HH2S 

CONW26 

C0HH27 

C0MH3 

C0HM3II 

C0MX31 

COHB32 

COMM33 

COHM34 

C0Mtl35 

C0MM36 

COMH37 

C0MM4 

COMM40 

C0(IN41 

C0MH42 

C0HN43 

C0NH44 

COMM45 

COMH46 

COMM47 

ENDCOM 

EBRCMP 

EBRLUR 

ERROR 



It 

I4e« 
II 
II 
11 
11 
II 
11 
11 
11 
11 
II 
11 
11 
11 
11 
It 
11 
11 
11 
11 
It 
11 
11 
11 
It 
11 
It 
11 
11 
It 
It 
It 
It 
It 
It 
II 
It 
II 
It 
It 
II 
It 
11 
11 
It 

1481 

It 

It 

341 

9 49 
1283 
1604 
1931 
22S3 
2S21 



4616 
698 
967 
I2"7 
1622 
1972 
2266 
252S 



698 
1818 
1382 
1664 
1988 
2308 
2543 



782 
1818 
1344 

1686 
1984 
J316 

3585 



715 
1822 
1357 
1725 
2082 
2328 
2593 



756 
1844 
1399 
1733 
2844 
2335 
2597 



764 
1887 
1414 
1737 
2852 
2377 
2619 



768 
1185 
1456 
1750 
2856 
2385 
2661 



783 
1147 
1464 
1792 
2878 
2389 
2669 



825 
1169 
1468 
1888 
2128 
2482 
2673 



838 
1208 
1486 
1884 
2136 
2444 
2691 



888 
1216 
1528 
1819 
218a 
2452 
2733 



895 
1228 
1536 
1861 
2282 
2456 
2741 



937 
1233 
1548 
1874 
2241 
2471 
2745 



945 
1275 
1562 
1916 
2249 
2513 
2767 
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2889 


2817 


2821 


2834 


2875 


2883 


2887 


2982 


2944 


2952 


2956 


2974 


3815 


3823 


3827 




3849 


3188 


3133 


3198 


3238 


3485 




















ESCAPE 


1481 






























FC0H8 


It 






























FCOMl 


11 






























FCOH? 


It 






























FC0M3 


It 






























FC0l(4 


It 






























FPRGT8 


It 






























FPRGTI 


It 






























FPSFEC 


It 






























FPST5T 


It 






























GENCOM 


It 






























GENTSl 


11 






























GENTS2 


11 






























CENTS 3 


11 






























0ENTS4 


It 






























GETPRI 


1481 






























GETSKR 


1481 






























GTSTD 


It 






























GTSTf 


It 






























HTSTD 


II 






























HISTF 


11 






























HOVDIS 


It 






























MULT 


1481 






























NFMTST 


1481 


655 


721 


798 


845 


982 


975 


1852 


1112 


1173 


1240 


1389 


1364 


1421 


1493 




1569 


1629 


1698 


1757 


1826 


1881 


1937 


2889 


2085 


2145 


2206 


2273 


2342 


2489 


2478 




2558 


2626 


2698 


2774 


2848 


2989 


2988 


3052 


3148 














POP 


1481 


4829 


4838 


4981 


4982 






















PUSH 


1481 


4798 


4792 


4813 


4968 


4966 




















REPORT 


1481 






























SBTSTl 


11 






























SBTST2 


It 






























SC0M8 


It 






























SCOWl 


It 






























SC0H2 


11 






























SC0H3 


11 






























SC0M4 


It 






























SC0M5 


It 






























SC0M6 


11 






























SCOI'7 


11 






























SCOPE 


351 


658 


724 


793 


848 


985 


978 


1859 


1115 


1176 


1243 


1312 


1367 


1424 


1496 




1572 


1632 


1693 


1768 


1829 


1884 


1948 


2812 


2088 


2148 


2289 


2276 


2345 


2412 


2481 




2553 


2629 


2701 


2777 


2843 


2912 


2983 


3855 


3143 


3244 












SCPLUR 


It 


4587 




























SEADAT 


11 






























SETPRI 


1481 






























SETREG 


II 


4571 




























SFTtTPA 


49481 


4949 


4958 


4951 
























SETUP 


11 


1481 


528 


























SKIP 


1401 






























SLASH 


1481 


577 


684 


























SPACE 


1481 






























STARS 


1481 


176 


187 


189 


196 


218 


254 


257 


516 


518 


607 


689 


626 


628 


655 




657 


721 


723 


790 


792 


845 


847 


982 


984 


975 


977 


1852 


1854 


1112 


1114 




1173 


1 175 


1248 


1242 


1309 


1311 


1364 


1366 


1421 


1423 


1493 


1495 


1569 


1571 


1629 



FPU ADD/SUB/KUt/DIV BAMDOM EXEP M»CV11 27(l<»a6) fl4-»l»Y-71 1"!18 PACE 128 
i4.HAY.77 17IJ9 CPOSS BtFEHENCE TABLE — MACRO NAMES 



DOFPDB.PIl 



STATUS 

SWR5U 

TADDDl 

TXD0D2 

TADOFl 

TADDFJ 

TADDRI 

TADDP2 

TBMTBP 

TYPBIN 

TYPDEC 

TYPNAM 

TYPNUM 

TYPOCS 

TYPOCT 

lYPTXT 

UPCOOE 

IICMPE 

»«C"TM 

OESCA 

(tHEliT 



• •SET 

•<SETM 

(■SKIP 

.EOUAT 

.HEADE 

.SBPAS 

.SETUP 

.STPAS 

.(ACTl 

,«APIB 

.lAPTH 

.»APTl 

.•CATC 

.»C"TA 

.•EOP 

.tCPRO 

.•POME 

.•SCOP 

.•TPAP 

.tTYEB 

.•TYPE 

.•TYPO 



16J1 

2145 

2(28 

3142 

II 

1401 

II 

II 

II 

II 

II 

II 

49401 

1401 

1401 

1401 

1401 

1401 

1401 

1401 

II 

2081 

2081 

1401 

1101 

1569 

3550 

49401 

5591 

1401 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

11 

II 

11 

II 

II 

II 

II 

II 



1690 
2147 
2698 
3183 

5431 



4979 



655 
1629 
2626 
4949 



30 
2 

1241 
514 
577 
174 
2551 
185 

4783 
162 
208 

4556 
4954 
4495 
4917 

4704 
4840 



1692 
2206 
2700 
3241 



1757 
22118 
2774 

3380 



1759 
3273 

2776 
4495 



1826 
2275 
2840 
4558 



1828 
2342 
2842 
4617 



1881 
2)44 
2909 
4706 



1883 
2409 
2911 

4785 



1937 
2411 
2980 

4842 



1939 
2478 
2982 
4919 



2009 
2480 
3052 
4956 



2011 
2550 
3054 
4972 



2085 
2552 
3093 



2087 
2626 
3140 



721 
1690 
2698 
4950 



790 
1757 
2774 
4951 



845 
1826 
2840 



902 
1881 
2909 



975 
1937 
2980 



1052 
20119 
3052 



1112 

2085 
3140 



;i;l73 
■»145 



1240 
2206 



1309 
2273 



1364 
2342 



1421 
2409 



1493 

2478 



. ABS. V34116 



EPROBS DETECTEDr 

DEFAULT GLOBALS GENERATED: 



FPU ADD/5UB/MUL/0IV BANDOM EXEB MACYll 27(1006) 04-MAY-77 19!18 PAGE 129 
DQFPDB.PII 04.MAY.77 17l30 CROSS REFERENCE TABLE -- MACRO NAMES 

DOFPDB.BIN,DQFPOB.LST/CPF/SOL/P/OOC/CPUl70/EX/EH:l«BP/»l!TTHiDOFPDB,MAC,DQFPDB.Pll 
PUN-TIMEl 19 16 1 SECONDS 
RUN'TIME BAIIOl 102/J7»2.7 
CORE USEDl 25F (50 PAGES) 

DOCUMENT PAGESi 128 
HRAP.APOUNDl 0% 



USER SYMBOLS! 686 
MACRO NAMES! 14| 
UNDF SYMBOLS: 14 
DISK BLOCKS READ: 
DISK BLKS WRITTEN: 
KILO CORF SECONDS: 



1238 

629 

U77 



